polymorphize splitting private combinators

2010-03-07 18:07:59 -08:00 · 2010-03-07 18:07:59 -08:00 · 83c81b288f
parent 6b9a79159d
commit 83c81b288f
1 changed files with 1 additions and 1 deletions
--- a/core/splitting/splitting.factor
+++ b/core/splitting/splitting.factor
@ -61,7 +61,7 @@ PRIVATE>
    [ drop [ swap [ tail ] unless-zero , ] 2curry ]
    3tri if* ; inline recursive

-: split, ( seq quot -- ) [ 0 ] 2dip (split) ; inline
+: split, ( ... seq quot: ( ... elt -- ... ? ) -- ... ) [ 0 ] 2dip (split) ; inline

 PRIVATE>