rename split-n to group

diff --git a/library/bootstrap/image.factor b/library/bootstrap/image.factor
index a69dbb2e5e8d955df8b1b51fa743f36dd364ee67..17663905a68f0d38e0d1c8bbb82c3c9b48435a7b 100644 (file)
--- a/library/bootstrap/image.factor
+++ b/library/bootstrap/image.factor
@@ -209,7 +209,7 @@ M: cons ' ( c -- tagged )
     ] each drop ;
 
 : pack-string ( string -- )
-    char tuck swap split-n (pack-string) ;
+    char tuck swap group (pack-string) ;
 
 : emit-string ( string -- )
     object-tag here-as swap