From b573c40402abe581779887da92e2d348d5ac7e85 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 8 Jun 2014 13:40:38 -0700
Subject: [PATCH] compiler.tree: teaching it bignum>fixnum-strict.

---
 .../tree/modular-arithmetic/modular-arithmetic.factor         | 4 +++-
 .../compiler/tree/propagation/known-words/known-words.factor  | 1 +
 2 files changed, 4 insertions(+), 1 deletion(-)

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 }