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