steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

master
Doug Coleman 2020-05-01 22:48:48 -05:00
parent d27c259928
commit c21608b0a0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/math/bitwise/bitwise.factor
View File

@ -75,6 +75,9 @@ MACRO: bitfield ( bitspec -- quot )
[ (bitfield-quot) ] [ '[ @ _ dip bitor ] ] map-reduce [ (bitfield-quot) ] [ '[ @ _ dip bitor ] ] map-reduce
] if-empty ; ] if-empty ;
MACRO: bitfield* ( bitspec -- quot )
reverse bitfield ;
! bit-count ! bit-count
<PRIVATE <PRIVATE