From 80b39bd4f2b60c049f4c19ea8f4a1e1ca013bb4e Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 5 Oct 2012 09:47:27 -0700
Subject: [PATCH] compiler.tree.propagation: cleanup known-words a bit.

---
 .../tree/propagation/known-words/known-words.factor   | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

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