math.integers: faster fixnum-log2.

slavapestov · Feb 28, 2013 · 4da316c · 4da316c
1 parent df54ef2
commit 4da316c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/core/math/integers/integers.factor b/core/math/integers/integers.factor
@@ -57,7 +57,9 @@ M: fixnum bitnot fixnum-bitnot ; inline
 M: fixnum bit? fixnum-bit? ; inline
 
 : fixnum-log2 ( x -- n )
-    0 swap [ dup 1 eq? ] [ [ 1 + ] [ 2/ ] bi* ] until drop ; inline
+    0 swap [ dup 1 eq? ] [
+        [ 1 fixnum+fast ] [ 2/ ] bi*
+    ] until drop ; inline
 
 M: fixnum (log2) fixnum-log2 ; inline