alien.enums: Add values>enum word

[factor.git] / basis / alien / enums / enums.factor

diff --git a/basis/alien/enums/enums.factor b/basis/alien/enums/enums.factor
index 7a7bbb0d43996561941c289695b71029937a0669..9857771d6d65bf039512c3472f0c61bf888efed5 100644 (file)
--- a/basis/alien/enums/enums.factor
+++ b/basis/alien/enums/enums.factor
@@ -61,3 +61,6 @@ 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
\ No newline at end of file