math.bitwise: Add an in-order bitfield word called bitfield*.

diff --git a/basis/math/bitwise/bitwise.factor b/basis/math/bitwise/bitwise.factor
index b5e3f3816c96b135b00ae8e86cafc16291eb9951..be447397e6c9314dd972182a9f2336498abbb4ae 100644 (file)
--- a/basis/math/bitwise/bitwise.factor
+++ b/basis/math/bitwise/bitwise.factor
@@ -75,6 +75,9 @@ MACRO: bitfield ( bitspec -- quot )
         [ (bitfield-quot) ] [ '[ @ _ dip bitor ] ] map-reduce
     ] if-empty ;
 
+MACRO: bitfield* ( bitspec -- quot )
+    reverse bitfield ;
+
 ! bit-count
 <PRIVATE