<struct-slot-spec> ( name c-type attributes -- slot-spec )


Vocabulary
classes.struct

Inputs
namean object
c-typean object
attributesan object


Outputs
slot-specan object


Definition
USING: accessors classes.struct.private kernel sequences slots ;

IN: classes.struct

: <struct-slot-spec> ( name c-type attributes -- slot-spec )
[ struct-slot-spec new ] 3dip
[ >>name ]
[ [ >>type ] [ struct-slot-class init-slot-class ] bi ]
[ [ dup empty? ] [ peel-off-struct-attributes ] until drop ]
tri* ;