define-enum-constructor ( word -- )

Vocabulary

alien.enums.private

Inputs

word

an object

Outputs

None

Definition

USING: accessors alien.enums kernel parser sequences words ;

IN: alien.enums.private

: define-enum-constructor ( word -- )
    [ name>> "<" ">" surround create-word-in ] keep
    [ number>enum ] curry ( number -- enum ) define-declared ;