: define-enum-constructor ( word -- )
[ name>> "<" ">" surround create-word-in ] keep
- [ number>enum ] curry ( number -- enum ) define-inline ;
+ [ number>enum ] curry ( number -- enum ) define-declared ;
PRIVATE>
: enum>keys ( enum -- seq )
"c-type" word-prop members>> keys [ name>> ] map ;
+
+: values>enum ( values enum -- seq )
+ '[ _ number>enum ] map ; inline
+