From db9cfeeae2319c8f7736979b0b2bca24fd63823e Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 17 Jun 2015 18:42:11 -0700
Subject: [PATCH] math.integers: simplify fixnum-bit?.

---
 core/math/integers/integers.factor | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/core/math/integers/integers.factor b/core/math/integers/integers.factor
index b52400c8c1..98ca157b72 100644
--- 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