struct-slot-values-quot ( class -- quot )

Vocabulary

classes.struct.private

Inputs

class

an object

Outputs

quot

an object

Definition

USING: accessors classes.struct combinators.smart kernel
quotations sequences slots ;

IN: classes.struct.private

: struct-slot-values-quot ( class -- quot )
    struct-slots [ name>> reader-word 1quotation ] map
    [ cleave>array ] curry ;