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

math.integers: faster fixnum-bit?.

db4
John Benediktsson 2012-08-30 19:07:47 -07:00
parent 6c9a6122de
commit 20100d7853
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/math/integers/integers.factor
View File

@ -52,7 +52,7 @@ M: fixnum shift integer>fixnum fixnum-shift ; inline
M: fixnum bitnot fixnum-bitnot ; inline M: fixnum bitnot fixnum-bitnot ; inline
: fixnum-bit? ( n m -- b ) : fixnum-bit? ( n m -- b )
neg shift 1 bitand 0 > ; inline neg shift 1 bitand zero? not ; inline
M: fixnum bit? fixnum-bit? ; inline M: fixnum bit? fixnum-bit? ; inline