The alien.enums vocab contains the implementation for ENUM: C types, and provides words for converting between enum singletons and integers. It is possible to dispatch off of members of an enum.

Defining enums:

ENUM:

Defining enums at run-time:

define-enum ( word base-type members -- )

Conversions between enums and integers:

enum>number ( enum -- number )

number>enum ( enum-c-type -- quot )