math.integers: simplify fixnum-bit?.

diff --git a/core/math/integers/integers.factor b/core/math/integers/integers.factor
index b52400c8c1816159d7547ef57968bb3476fc47f8..98ca157b72d4ae8a3c2f0d68a7f3f24664006d97 100644 (file)
--- a/core/math/integers/integers.factor
+++ b/core/math/integers/integers.factor
@@ -52,11 +52,10 @@ M: fixnum shift integer>fixnum fixnum-shift ; inline
 M: fixnum bitnot fixnum-bitnot ; inline
 
 : fixnum-bit? ( x n -- ? )
-    integer>fixnum-strict dup 0 >= [
-        neg shift even? not
-    ] [ 2drop f ] if ; inline
+    { fixnum fixnum } declare
+    dup 0 >= [ neg shift even? not ] [ 2drop f ] if ; inline
 
-M: fixnum bit? fixnum-bit? ; inline
+M: fixnum bit? integer>fixnum-strict fixnum-bit? ; inline
 
 : fixnum-log2 ( x -- n )
     { fixnum } declare