compiler.tree.propagation: fix >fraction types.

2012-09-11 07:42:39 -07:00 · 2012-09-11 07:42:39 -07:00 · 4fc3b68f85
parent 56a010441a
commit 4fc3b68f85
1 changed files with 5 additions and 1 deletions
--- a/basis/compiler/tree/propagation/known-words/known-words.factor
+++ b/basis/compiler/tree/propagation/known-words/known-words.factor
@ -239,9 +239,13 @@ generic-comparison-ops [
    '[ _ swap interval>> <class/interval-info> ] "outputs" set-word-prop
 ] assoc-each

-{ numerator denominator >fraction }
+{ 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 } [
    [
        [ class>> ] [ interval>> interval-log2 ] bi <class/interval-info>