steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2012-10-05 15:00:49 -07:00
parent 5f4bf4513b
commit cf3c197743
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/compiler/tree/propagation/known-words/known-words.factor
View File

@ -240,9 +240,12 @@ generic-comparison-ops [
'[ _ swap interval>> <class/interval-info> ] "outputs" set-word-prop '[ _ swap interval>> <class/interval-info> ] "outputs" set-word-prop
] assoc-each ] assoc-each
{ numerator denominator >fraction } [ { numerator denominator }
{ integer } "default-output-classes" set-word-prop [ [ drop integer <class-info> ] "outputs" set-word-prop ] each
] each
\ >fraction [
drop integer <class-info> dup
] "outputs" set-word-prop
{ (log2) fixnum-log2 bignum-log2 } [ { (log2) fixnum-log2 bignum-log2 } [
[ [