array>set-slots ( names -- quot: ( values tuple -- ) )

Vocabulary

slots.macros

Inputs

names

an object

Outputs

quot	a quotation with stack effect ( values tuple -- )

Definition

USING: kernel sequences sequences.generalizations ;

IN: slots.macros

MACRO: array>set-slots
    ( names -- quot: ( values tuple -- ) )
    [ length ] keep [ [ firstn ] curry ] dip
    [ [ dip ] curry ] dip [ set-slots ] curry compose ;