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

compiler.tree.propagation: fix >fraction types.

db4
John Benediktsson 2012-09-11 07:42:39 -07:00
parent e84e508256
commit e72e1a340f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -239,9 +239,13 @@ 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 }
[ [ drop integer <class-info> ] "outputs" set-word-prop ] each [ [ drop integer <class-info> ] "outputs" set-word-prop ] each
\ >fraction [
drop integer <class-info> dup
] "outputs" set-word-prop
{ (log2) fixnum-log2 bignum-log2 } [ { (log2) fixnum-log2 bignum-log2 } [
[ [
[ class>> ] [ interval>> interval-log2 ] bi <class/interval-info> [ class>> ] [ interval>> interval-log2 ] bi <class/interval-info>