math.integers: faster fixnum-bit?.

diff --git a/core/math/integers/integers.factor b/core/math/integers/integers.factor
index 8e1aaba22864a3f38a021c20a9088accc11d83be..61d0ec79d8bb093e0a4c388dd194e537b9ac7de4 100644 (file)
--- a/core/math/integers/integers.factor
+++ b/core/math/integers/integers.factor
@@ -52,7 +52,7 @@ M: fixnum shift integer>fixnum fixnum-shift ; inline
 M: fixnum bitnot fixnum-bitnot ; inline
 
 : fixnum-bit? ( n m -- b )
-    neg shift 1 bitand 0 > ; inline
+    neg shift 1 bitand zero? not ; inline
 
 M: fixnum bit? fixnum-bit? ; inline