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

diff --git a/core/math/integers/integers.factor b/core/math/integers/integers.factor
index e553d93a00bbb3581ea9974479f0583f148a54cd..b52400c8c1816159d7547ef57968bb3476fc47f8 100644 (file)
--- 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