compiler.tree.modular-arithmetic: adding bignum>fixnum-strict to like->fixnum? list

[factor.git] / basis / compiler / tree / modular-arithmetic / modular-arithmetic.factor

diff --git a/basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor b/basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor
index 4c0f69df2b366980bec35bae5add4eb786f348ef..ce15e7ad2e5e569e1a9d51e2263f7501541e9fd5 100644 (file)
--- a/basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor
+++ b/basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor
@@ -178,7 +178,8 @@ MEMO: fixnum-coercion ( flags -- nodes )
 
 : like->fixnum? ( #call -- ? )
     word>> {
-        >fixnum bignum>fixnum float>fixnum
+        >fixnum float>fixnum
+        bignum>fixnum bignum>fixnum-strict
         integer>fixnum integer>fixnum-strict
     } member-eq? ;