]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/alien/enums/enums.factor
factor: add newlines to .factor files
[factor.git] / basis / alien / enums / enums.factor
index 109bcae1e895d0780d83be6c4f7a2584cd585a98..e9f9d44ec645648a0afa140db5090494874390b8 100644 (file)
@@ -40,7 +40,7 @@ M: enum-c-type c-type-setter
 
 : 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>
 
@@ -61,3 +61,7 @@ PREDICATE: enum-c-type-word < c-type-word
 
 : enum>keys ( enum -- seq )
     "c-type" word-prop members>> keys [ name>> ] map ;
+
+: values>enum ( values enum -- seq )
+    '[ _ number>enum ] map ; inline
+