Make partially dispatched integer ops foldable

2009-03-11 13:57:13 -05:00 · 2009-03-11 13:57:13 -05:00 · b6f6e880bf
parent ed30d24e56
commit b6f6e880bf
2 changed files with 6 additions and 1 deletions
--- a/basis/compiler/tree/cleanup/cleanup-tests.factor
+++ b/basis/compiler/tree/cleanup/cleanup-tests.factor
@ -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
--- a/basis/math/partial-dispatch/partial-dispatch.factor
+++ b/basis/math/partial-dispatch/partial-dispatch.factor
@ -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