From 9f7e4c0e6a59bb8e37f2ad9080e1d890c7b2635c Mon Sep 17 00:00:00 2001
From: Jon Harper <jon.harper87@gmail.com>
Date: Wed, 24 Aug 2011 22:28:19 +0200
Subject: [PATCH] sequences, fix stack effect of (accumulate)

---
 core/sequences/sequences.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 493365db1a..6ac1ffc534 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -403,7 +403,7 @@ PRIVATE>
     [ 2drop f f ]
     if ; inline
 
-: (accumulate) ( seq identity quot -- seq identity quot )
+: (accumulate) ( seq identity quot -- identity seq quot )
     [ swap ] dip [ curry keep ] curry ; inline
 
 PRIVATE>