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

2020-05-01 22:48:48 -05:00 · 2020-05-01 22:48:48 -05:00 · c21608b0a0
parent d27c259928
commit c21608b0a0
1 changed files with 3 additions and 0 deletions
--- 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