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

move (accumulate) to sequences.private

db4
Doug Coleman 2010-01-22 15:04:13 -06:00
parent 760746e2ff
commit 1519e0ba69
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/sequences/sequences.factor
View File

@ -403,6 +403,9 @@ PRIVATE>
[ 2drop f f ] [ 2drop f f ]
if ; inline if ; inline
: (accumulate) ( seq identity quot -- seq identity quot )
[ swap ] dip [ curry keep ] curry ; inline
PRIVATE> PRIVATE>
: each ( seq quot -- ) : each ( seq quot -- )
@ -429,9 +432,6 @@ PRIVATE>
: map! ( seq quot -- seq ) : map! ( seq quot -- seq )
over [ map-into ] keep ; inline over [ map-into ] keep ; inline
: (accumulate) ( seq identity quot -- seq identity quot )
[ swap ] dip [ curry keep ] curry ; inline
: accumulate-as ( seq identity quot exemplar -- final newseq ) : accumulate-as ( seq identity quot exemplar -- final newseq )
[ (accumulate) ] dip map-as ; inline [ (accumulate) ] dip map-as ; inline