compiler.tree.modular-arithmetic needs shallow-spread>quot

2011-10-02 22:16:36 -07:00 · 2011-10-02 22:16:36 -07:00 · 44ef1d3698
parent daf40ea0c6
commit 44ef1d3698
1 changed files with 2 additions and 1 deletions
--- a/basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor
+++ b/basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor
@ -155,7 +155,8 @@ M: #push optimize-modular-arithmetic*
 MEMO: fixnum-coercion ( flags -- nodes )
    ! flags indicate which input parameters are already known to be fixnums,
    ! and don't need a coercion as a result.
-    [ [ ] [ >fixnum ] ? ] map '[ _ spread ] splice-quot ;
+    [ [ ] [ >fixnum ] ? ] map shallow-spread>quot
+    '[ _ call ] splice-quot ;

 : modular-value-info ( #call -- alist )
    [ in-d>> ] [ out-d>> ] bi append