<vectored-slots> ( struct-class -- quot: ( n -- slots... ) )

Vocabulary

classes.struct.vectored.private

Inputs

struct-class

an object

Outputs

quot	a quotation with stack effect ( n -- slots... )

Definition

USING: accessors classes.struct combinators kernel quotations
sequences ;

IN: classes.struct.vectored.private

MACRO: <vectored-slots>
    ( struct-class -- quot: ( n -- slots... ) )
    struct-slots [ type>> <array-class>-of 1quotation ] map
    [ cleave ] curry ;