copy-slots{

Vocabulary

slots.syntax

Word description

Copy slots from the first object to the second and return the second object.

USING: prettyprint slots.syntax kernel ; IN: slots.syntax.example TUPLE: thing1 a b ; TUPLE: thing2 a b c ; 1 2 thing1 boa 11 22 33 thing2 boa copy-slots{ a b } .
T{ thing2 { a 1 } { b 2 } { c 33 } }

Definition

USING: combinators kernel lexer quotations sequences slots ;

IN: slots.syntax

SYNTAX: copy-slots{
    "}" [
        [ reader-word 1quotation ] [ writer-word<< 1quotation ]
        bi append
    ] map-tokens [ [ swap ] ] dip [ cleave ] curry compose
    append! ;