math.integers: faster fixnum-bit?.

2012-08-30 19:07:47 -07:00 · 2012-08-30 19:07:47 -07:00 · 20100d7853
parent 6c9a6122de
commit 20100d7853
1 changed files with 1 additions and 1 deletions
--- a/core/math/integers/integers.factor
+++ b/core/math/integers/integers.factor
@ -52,7 +52,7 @@ M: fixnum shift integer>fixnum fixnum-shift ; inline
 M: fixnum bitnot fixnum-bitnot ; inline

 : fixnum-bit? ( n m -- b )
-    neg shift 1 bitand 0 > ; inline
+    neg shift 1 bitand zero? not ; inline

 M: fixnum bit? fixnum-bit? ; inline