first-slot ( struct-class -- quot: ( struct -- value ) )

Vocabulary

classes.struct.vectored.private

Inputs

struct-class

an object

Outputs

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

Definition

USING: accessors classes.struct quotations sequences slots ;

IN: classes.struct.vectored.private

MACRO: first-slot
    ( struct-class -- quot: ( struct -- value ) )
    struct-slots first name>> reader-word 1quotation ;