(vectored-element>) ( struct-class -- quot: ( elt -- struct ) )

Vocabulary

classes.struct.vectored.private

Inputs

struct-class

an object

Outputs

quot	a quotation with stack effect ( elt -- struct )

Definition

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

IN: classes.struct.vectored.private

MACRO: (vectored-element>)
    ( struct-class -- quot: ( elt -- struct ) )
    [ struct-slots [ name>> reader-word 1quotation ] map ] keep
    [ [ cleave ] curry ] dip [ boa ] curry compose ;