flags now works with numbers

diff --git a/core/math/bitfields/bitfields.factor b/core/math/bitfields/bitfields.factor
index 29c3329f3d197ac938006306b704c61f4c625a7e..77cc40180ea31c73552eace1bd918513a2901e60 100644 (file)
--- a/core/math/bitfields/bitfields.factor
+++ b/core/math/bitfields/bitfields.factor
@@ -15,4 +15,4 @@ M: pair (bitfield) ( value accum pair -- newaccum )
     0 [ (bitfield) ] reduce ;
 
 : flags ( values -- n )
-    0 [ execute bitor ] reduce ;
+    0 [ dup word? [ execute ] when bitor ] reduce ;