splitting: fix stack effect declaration of (split)

db4
Slava Pestov 2010-11-06 17:50:39 -07:00
parent f60f13c675
commit 5cbf730517
1 changed files with 1 additions and 1 deletions

View File

@ -55,7 +55,7 @@ PRIVATE>
<PRIVATE
: (split) ( n seq quot: ( elt -- ? ) -- )
: (split) ( n seq quot: ( ... elt -- ... ? ) -- )
[ find-from drop ]
[ [ [ 3dup swapd subseq , ] dip [ drop 1 + ] 2dip (split) ] 3curry ]
[ drop [ swap [ tail ] unless-zero , ] 2curry ]