From 6d679cf3a29eb7176b389b190180eff110ad26e8 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 27 Feb 2013 17:08:36 -0800
Subject: [PATCH] math.integers: the fixnum-log2 intrinsic didn't work due to
 inlining.

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

diff --git a/core/math/integers/integers.factor b/core/math/integers/integers.factor
index 8c1ef6fa98..b2b4f9e157 100644
--- a/core/math/integers/integers.factor
+++ b/core/math/integers/integers.factor
@@ -57,11 +57,12 @@ M: fixnum bitnot fixnum-bitnot ; inline
 M: fixnum bit? fixnum-bit? ; inline
 
 : fixnum-log2 ( x -- n )
+    { fixnum } declare
     0 swap [ dup 1 eq? ] [
         [ 1 fixnum+fast ] [ 2/ ] bi*
-    ] until drop ; inline
+    ] until drop ;
 
-M: fixnum (log2) fixnum-log2 ; inline
+M: fixnum (log2) fixnum-log2 { fixnum } declare ; inline
 
 M: bignum >fixnum bignum>fixnum ; inline
 M: bignum >bignum ; inline