From 44ef1d3698e8eacf44f0f5124bc9ce6a8e95bef9 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 2 Oct 2011 22:16:36 -0700 Subject: [PATCH] compiler.tree.modular-arithmetic needs shallow-spread>quot --- .../compiler/tree/modular-arithmetic/modular-arithmetic.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor b/basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor index aac165dff9..a737b97023 100644 --- 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