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

sequences, fix stack effect of (accumulate)

Jon Harper 2011-08-24 22:28:19 +02:00
parent 45df73a0ca
commit 9f7e4c0e6a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/sequences/sequences.factor
View File

@ -403,7 +403,7 @@ PRIVATE>
[ 2drop f f ] [ 2drop f f ]
if ; inline if ; inline
: (accumulate) ( seq identity quot -- seq identity quot ) : (accumulate) ( seq identity quot -- identity seq quot )
[ swap ] dip [ curry keep ] curry ; inline [ swap ] dip [ curry keep ] curry ; inline
PRIVATE> PRIVATE>