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

pack: whoops, need to dup result.

db4
John Benediktsson 2015-07-14 17:50:26 -07:00
parent d44ca77cff
commit 09f4c7941f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/pack/pack.factor
View File

@ -116,7 +116,7 @@ MACRO: pack ( str -- quot )
<PRIVATE <PRIVATE
: start/end ( seq -- seq1 seq2 ) : start/end ( seq -- seq1 seq2 )
[ cum-sum0 ] keep v+ ; inline [ cum-sum0 dup ] keep v+ ; inline
PRIVATE> PRIVATE>