parse-enum-member ( members name value -- members value' )

Vocabulary

alien.parser.private

Inputs

members	an object
name	an object
value	an object

Outputs

members	an object
value'	an object

Definition

USING: classes.parser kernel lexer parser ;

IN: alien.parser.private

: parse-enum-member ( members name value -- members value' )
    over "{" = [
        2drop
        scan-token create-class-in scan-object next-enum-member
        "}" expect
    ] [ [ create-class-in ] dip next-enum-member ] if ;