color-string ( color1 color2 -- string )

Vocabulary

benchmark.chameneos-redux

Inputs

color1	an object
color2	an object

Outputs

string

an object

Definition

USING: accessors kernel make sequences ;

IN: benchmark.chameneos-redux

: color-string ( color1 color2 -- string )
    [
        [ [ name>> ] bi@ " + " glue % " -> " % ]
        [ complement-color name>> % ] 2bi
    ] "" make ;