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

2015-06-17 08:21:00 -07:00 · 2015-06-17 08:21:00 -07:00 · ed786070e2
parent 3705d6e387
commit ed786070e2
1 changed files with 2 additions and 2 deletions
--- a/core/math/integers/integers.factor
+++ b/core/math/integers/integers.factor
@ -52,8 +52,8 @@ M: fixnum shift integer>fixnum fixnum-shift ; inline
 M: fixnum bitnot fixnum-bitnot ; inline

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

 M: fixnum bit? fixnum-bit? ; inline