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

Make partially dispatched integer ops foldable

db4
Slava Pestov 2009-03-11 13:57:13 -05:00
parent ed30d24e56
commit b6f6e880bf
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/compiler/tree/cleanup/cleanup-tests.factor
View File

@ -515,3 +515,8 @@ cell-bits 32 = [
[ { fixnum fixnum } declare = ] [ { fixnum fixnum } declare = ]
\ both-fixnums? inlined? \ both-fixnums? inlined?
] unit-test ] unit-test
[ t ] [
[ { integer integer } declare + drop ]
{ + +-integer-integer } inlined?
] unit-test

2
basis/math/partial-dispatch/partial-dispatch.factor
View File

@ -84,7 +84,7 @@ M: word integer-op-input-classes
: define-integer-op-word ( fix-word big-word triple -- ) : 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 (( x y -- z )) define-declared
] [ ] [
2nip 2nip