compiler.tree.propagation: revert cleanup, this was more correct.

2012-10-05 15:00:49 -07:00 · 2012-10-05 15:00:49 -07:00 · cf3c197743
parent 5f4bf4513b
commit cf3c197743
1 changed files with 6 additions and 3 deletions
--- 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 } [
    [