From cf3c197743c99142d9f697c0689abee6bb225983 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 5 Oct 2012 15:00:49 -0700
Subject: [PATCH] compiler.tree.propagation: revert cleanup, this was more
 correct.

---
 .../tree/propagation/known-words/known-words.factor      | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/basis/compiler/tree/propagation/known-words/known-words.factor b/basis/compiler/tree/propagation/known-words/known-words.factor
index 42eb32ede9..eb36da6ba8 100644
--- a/basis/compiler/tree/propagation/known-words/known-words.factor
+++ b/basis/compiler/tree/propagation/known-words/known-words.factor
@@ -240,9 +240,12 @@ generic-comparison-ops [
     '[ _ swap interval>> <class/interval-info> ] "outputs" set-word-prop
 ] assoc-each
 
-{ numerator denominator >fraction } [
-    { integer } "default-output-classes" set-word-prop
-] each
+{ numerator denominator }
+[ [ drop integer <class-info> ] "outputs" set-word-prop ] each
+
+\ >fraction [
+    drop integer <class-info> dup
+] "outputs" set-word-prop
 
 { (log2) fixnum-log2 bignum-log2 } [
     [