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

combinators.smart: using each-from.

factor-shell
John Benediktsson 2017-10-24 17:05:23 -07:00
parent aa5623eede
commit 1a952a1fdc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/combinators/smart/smart.factor
View File

@ -146,7 +146,7 @@ MACRO: smart-map-reduce ( map-reduce-quots -- quot )
[ keys ] [ [ [ ] concat-as ] [ ] map-as ] bi dup length dup '[
[ first _ cleave ] keep
[ @ _ cleave-curry _ spread* ]
[ 1 ] 2dip setup-each (each-integer)
1 each-from
] ;
MACRO: smart-2reduce ( 2reduce-quots -- quot )
@ -159,5 +159,5 @@ MACRO: smart-2map-reduce ( 2map-reduce-quots -- quot )
[ keys ] [ [ [ ] concat-as ] [ ] map-as ] bi dup length dup '[
[ [ first ] bi@ _ 2cleave ] 2keep
[ @ _ [ cleave-curry ] [ cleave-curry ] bi _ spread* ]
[ 1 ] 3dip (2each) (each-integer)
1 2each-from
] ;