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

View File

@ -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>