parse-struct-definition ( -- class slots )

Vocabulary

classes.struct.private

Inputs

None

Outputs

class	an object
slots	an object

Definition

USING: accessors arrays classes.parser classes.tuple.parser
kernel sequences vectors ;

IN: classes.struct.private

: parse-struct-definition ( -- class slots )
    scan-new-class 8 <vector> [ parse-struct-slots ] [ ] while
    >array dup [ name>> ] map check-duplicate-slots ;