From 73b3cd636762c72acc701d65778e0c6bee7f2153 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 8 Dec 2008 13:59:59 -0600
Subject: [PATCH] Use eq? instead of number= since we only ever have a fixnum
 here

---
 core/math/integers/integers.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/math/integers/integers.factor b/core/math/integers/integers.factor
index 30903e3269..b229ea175d 100644
--- a/core/math/integers/integers.factor
+++ b/core/math/integers/integers.factor
@@ -41,7 +41,7 @@ M: fixnum bitnot fixnum-bitnot ;
 M: fixnum bit? neg shift 1 bitand 0 > ;
 
 : fixnum-log2 ( x -- n )
-    0 swap [ dup 1 number= not ] [ [ 1+ ] [ 2/ ] bi* ] [ ] while drop ;
+    0 swap [ dup 1 eq? not ] [ [ 1+ ] [ 2/ ] bi* ] [ ] while drop ;
 
 M: fixnum (log2) fixnum-log2 ;