compiler.tree.modular-arithmetic needs shallow-spread>quot
parent
daf40ea0c6
commit
44ef1d3698
|
@ -155,7 +155,8 @@ M: #push optimize-modular-arithmetic*
|
||||||
MEMO: fixnum-coercion ( flags -- nodes )
|
MEMO: fixnum-coercion ( flags -- nodes )
|
||||||
! flags indicate which input parameters are already known to be fixnums,
|
! flags indicate which input parameters are already known to be fixnums,
|
||||||
! and don't need a coercion as a result.
|
! 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 )
|
: modular-value-info ( #call -- alist )
|
||||||
[ in-d>> ] [ out-d>> ] bi append
|
[ in-d>> ] [ out-d>> ] bi append
|
||||||
|
|
Loading…
Reference in New Issue