parse-enum-elts ( class starting-counter counter-quot -- )

Vocabulary

classes.enumeration.private

Inputs

class	an object
starting-counter	an object
counter-quot	an object

Outputs

None

Definition

USING: kernel parser ;

IN: classes.enumeration.private

: parse-enum-elts ( class starting-counter counter-quot -- )
    [
        [ scan-word-name dup ";" = not ] 2dip rot
        [ [ dup ] 3dip parse-enum-elt t ] [ nipd f ] if
    ] loop 3drop ;