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 ] ] [ ] map-as ] [ length dup ] bi
    '[ @ _ cleave-curry _ spread* ] ;