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* ;