next-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: alien.enums arrays kernel math sequences ;

IN: alien.parser.private

: next-enum-member ( members name value -- members value' )
    [ define-enum-value ]
    [ [ 2array suffix! ] [ enum>number 1 + ] bi ] 2bi ;