]> gitweb.factorcode.org Git - factor.git/commitdiff
splitting: fix stack effect declaration of (split)
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Sun, 7 Nov 2010 00:50:39 +0000 (17:50 -0700)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Sun, 7 Nov 2010 00:50:39 +0000 (17:50 -0700)
core/splitting/splitting.factor

index 7e5c301711a46d6d0d88622a3bafe5c06311cdc6..c2ba53f1b67955a6819cf757d41dc6e318bd254d 100644 (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 ]