math.integers: speedup to fixnum-bit?.

diff --git a/core/math/integers/integers.factor b/core/math/integers/integers.factor
index 04918ad9e672928c251c46e58dead9de89520028..e553d93a00bbb3581ea9974479f0583f148a54cd 100644 (file)
--- a/core/math/integers/integers.factor
+++ b/core/math/integers/integers.factor
@@ -51,8 +51,10 @@ M: fixnum shift integer>fixnum fixnum-shift ; inline
 
 M: fixnum bitnot fixnum-bitnot ; inline
 
-: fixnum-bit? ( n m -- b )
-    neg shift 1 bitand zero? not ; inline
+: fixnum-bit? ( x n -- ? )
+    integer>fixnum dup 0 >= [
+        neg fixnum-shift-fast even? not
+    ] [ 2drop f ] if ; inline
 
 M: fixnum bit? fixnum-bit? ; inline