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

tweak word

db4
erg 2008-04-03 18:36:53 -05:00
parent 4acd587629
commit 344a98802f
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/math/bitfields/lib/lib.factor
View File

@ -4,7 +4,6 @@ IN: math.bitfields.lib
: clear-bit ( x n -- y ) 2^ bitnot bitand ; foldable : clear-bit ( x n -- y ) 2^ bitnot bitand ; foldable
: set-bit ( x n -- y ) 2^ bitor ; foldable : set-bit ( x n -- y ) 2^ bitor ; foldable
: bit-clear? ( x n -- ? ) 2^ bitand zero? ; foldable : bit-clear? ( x n -- ? ) 2^ bitand zero? ; foldable
: bit-set? ( x n -- ? ) bit-clear? not ; foldable
: unmask ( x n -- ? ) bitnot bitand ; foldable : unmask ( x n -- ? ) bitnot bitand ; foldable
: unmask? ( x n -- ? ) unmask 0 > ; foldable : unmask? ( x n -- ? ) unmask 0 > ; foldable
: mask ( x n -- ? ) bitand ; foldable : mask ( x n -- ? ) bitand ; foldable
@ -18,8 +17,8 @@ IN: math.bitfields.lib
: bitroll ( x s w -- y ) : bitroll ( x s w -- y )
[ wrap ] keep [ wrap ] keep
[ shift-mod ] 3keep [ shift-mod ]
[ - ] keep shift-mod bitor ; inline [ [ - ] keep shift-mod ] 3bi bitor ; inline
: bitroll-32 ( n s -- n' ) 32 bitroll ; : bitroll-32 ( n s -- n' ) 32 bitroll ;