sequences, fix stack effect of (accumulate)

2011-08-24 22:28:19 +02:00 · 2011-08-24 22:28:19 +02:00 · 58405ae6ba
parent 7e824af1f6
commit 58405ae6ba
1 changed files with 1 additions and 1 deletions
--- 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>