From 20100d78538461896f97bb6c69f2b11ac7fe7238 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 30 Aug 2012 19:07:47 -0700 Subject: [PATCH] math.integers: faster fixnum-bit?. --- 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 8e1aaba228..61d0ec79d8 100644 --- 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