From 8dbe938ae0683bd864541d8fbcf1bf5628dddf27 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sun, 7 Mar 2010 18:07:59 -0800
Subject: [PATCH] polymorphize splitting private combinators

---
 core/splitting/splitting.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/splitting/splitting.factor b/core/splitting/splitting.factor
index 7b805dffe5..7e5c301711 100644
--- 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>