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

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

db4
Doug Coleman 2011-10-02 22:16:36 -07:00
parent daf40ea0c6
commit 44ef1d3698
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor
View File

@ -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