diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index 1d9f0e41f9..b7c6708044 100644 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -403,6 +403,9 @@ PRIVATE> [ 2drop f f ] if ; inline +: (accumulate) ( seq identity quot -- seq identity quot ) + [ swap ] dip [ curry keep ] curry ; inline + PRIVATE> : each ( seq quot -- ) @@ -429,9 +432,6 @@ PRIVATE> : map! ( seq quot -- seq ) 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) ] dip map-as ; inline