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

compiler.tree.propagation: cleanup known-words a bit.

db4
John Benediktsson 2012-10-05 09:47:27 -07:00
parent 28f36a25b0
commit 80b39bd4f2
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -29,7 +29,7 @@ IN: compiler.tree.propagation.known-words
\ /mod { rational rational } "input-classes" set-word-prop \ /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 [ { integer integer } "input-classes" set-word-prop ] each
\ bitnot { integer } "input-classes" set-word-prop \ bitnot { integer } "input-classes" set-word-prop
@ -240,12 +240,9 @@ 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 } { numerator denominator >fraction } [
[ [ drop integer <class-info> ] "outputs" set-word-prop ] each { integer } "default-output-classes" set-word-prop
] each
\ >fraction [
drop integer <class-info> dup
] "outputs" set-word-prop
{ (log2) fixnum-log2 bignum-log2 } [ { (log2) fixnum-log2 bignum-log2 } [
[ [