compiler.tree.propagation: fix >fraction types.
parent
e84e508256
commit
e72e1a340f
|
@ -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>
|
||||
|
|
Loading…
Reference in New Issue