From 1519e0ba691e194f2d04fd5ed3d3f8c87914e5cb Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 22 Jan 2010 15:04:13 -0600
Subject: [PATCH] move (accumulate) to sequences.private

---
 core/sequences/sequences.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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