polymorphize splitting private combinators

diff --git a/core/splitting/splitting.factor b/core/splitting/splitting.factor
index 7b805dffe55a2b169b87821c5329e4ae2a36eb2d..7e5c301711a46d6d0d88622a3bafe5c06311cdc6 100644 (file)
--- 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>