Make partially dispatched integer ops foldable
parent
ed30d24e56
commit
b6f6e880bf
basis
compiler/tree/cleanup
math/partial-dispatch
|
@ -514,4 +514,9 @@ cell-bits 32 = [
|
|||
[ t ] [
|
||||
[ { fixnum fixnum } declare = ]
|
||||
\ both-fixnums? inlined?
|
||||
] unit-test
|
||||
|
||||
[ t ] [
|
||||
[ { integer integer } declare + drop ]
|
||||
{ + +-integer-integer } inlined?
|
||||
] unit-test
|
|
@ -84,7 +84,7 @@ M: word integer-op-input-classes
|
|||
|
||||
: define-integer-op-word ( fix-word big-word triple -- )
|
||||
[
|
||||
[ 2nip integer-op-word ] [ integer-op-quot ] 3bi
|
||||
[ 2nip integer-op-word dup make-foldable ] [ integer-op-quot ] 3bi
|
||||
(( x y -- z )) define-declared
|
||||
] [
|
||||
2nip
|
||||
|
|
Loading…
Reference in New Issue