From 040b94f5ceefb866eb7d1bb5a76d3100a2edf1de Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 5 Oct 2012 04:17:43 -0700
Subject: [PATCH] compiler.tree.propagation: make sure integer>fixnum-strict
 infers a fixnum.

---
 .../tree/propagation/known-words/known-words.factor         | 1 +
 .../compiler/tree/propagation/transforms/transforms.factor  | 6 +-----
 2 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/basis/compiler/tree/propagation/known-words/known-words.factor b/basis/compiler/tree/propagation/known-words/known-words.factor
index 24fb3e83ac..00d41bc13b 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 }
     { integer>fixnum fixnum }
+    { integer>fixnum-strict fixnum }
 
     { >bignum bignum }
     { fixnum>bignum bignum }
diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor
index a7ec584b55..6e0e8210a1 100644
--- a/basis/compiler/tree/propagation/transforms/transforms.factor
+++ b/basis/compiler/tree/propagation/transforms/transforms.factor
@@ -329,11 +329,7 @@ M\ set intersect [ intersect-quot ] 1 define-partial-eval
     [ [ dup [ \ >fixnum no-method ] unless ] ] [ f ] if ;
 
 ! Speeds up fasta benchmark
-\ >fixnum [
-    custom-inline-fixnum
-] "custom-inlining" set-word-prop
-
-{ integer>fixnum integer>fixnum-strict } [
+{ >fixnum integer>fixnum integer>fixnum-strict } [
     [ custom-inline-fixnum ] "custom-inlining" set-word-prop
 ] each