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

math.integers: fixnum-bit? should not use fixnum-shift-fast.

db4
John Benediktsson 2015-06-17 08:21:00 -07:00
parent 3705d6e387
commit ed786070e2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -52,8 +52,8 @@ M: fixnum shift integer>fixnum fixnum-shift ; inline
M: fixnum bitnot fixnum-bitnot ; inline M: fixnum bitnot fixnum-bitnot ; inline
: fixnum-bit? ( x n -- ? ) : fixnum-bit? ( x n -- ? )
integer>fixnum dup 0 >= [ integer>fixnum-strict dup 0 >= [
neg fixnum-shift-fast even? not neg shift even? not
] [ 2drop f ] if ; inline ] [ 2drop f ] if ; inline
M: fixnum bit? fixnum-bit? ; inline M: fixnum bit? fixnum-bit? ; inline