set-slots ( names -- quot: ( values... tuple -- ) )

Vocabulary

slots.macros

Inputs

names

an object

Outputs

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

Definition

USING: generalizations kernel sequences ;

IN: slots.macros

MACRO: set-slots ( names -- quot: ( values... tuple -- ) )
    [ [ [ set-slot ] curry ] [ ] map-as ] [ length dup ] bi
    [ [ cleave-curry ] curry compose ] dip [ spread* ] curry
    compose ;