diff --git a/basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor b/basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor index 65a7e889ee..2aafeebdd8 100644 --- a/basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor +++ b/basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor @@ -39,7 +39,9 @@ IN: compiler.tree.modular-arithmetic ! is a modular arithmetic word, then the input can be converted into ! a form that is cheaper to compute. { - >fixnum bignum>fixnum integer>fixnum integer>fixnum-strict + >fixnum + bignum>fixnum bignum>fixnum-strict + integer>fixnum integer>fixnum-strict float>fixnum set-alien-unsigned-1 set-alien-signed-1 set-alien-unsigned-2 set-alien-signed-2 diff --git a/basis/compiler/tree/propagation/known-words/known-words.factor b/basis/compiler/tree/propagation/known-words/known-words.factor index d158c931b3..206ad633a9 100644 --- a/basis/compiler/tree/propagation/known-words/known-words.factor +++ b/basis/compiler/tree/propagation/known-words/known-words.factor @@ -225,6 +225,7 @@ generic-comparison-ops [ { { >fixnum fixnum } { bignum>fixnum fixnum } + { bignum>fixnum-strict fixnum } { integer>fixnum fixnum } { integer>fixnum-strict fixnum }