splitting: string-lines docs say it returns strings, so do that.

diff --git a/core/splitting/splitting-tests.factor b/core/splitting/splitting-tests.factor
index 7cb0df9ba08d41704e74824a5b78b11123eaa8a6..550cb00b1f4fca94b398f3cef6cdf8ddc2729be3 100644 (file)
--- a/core/splitting/splitting-tests.factor
+++ b/core/splitting/splitting-tests.factor
@@ -58,17 +58,17 @@ unit-test
 [ { "hello" "hi" } ] [ "hello\rhi" string-lines ] unit-test
 [ { "hello" "hi" } ] [ "hello\r\nhi" string-lines ] unit-test
 
-[ { SBUF" " } ] [ SBUF" " string-lines ] unit-test
-[ { SBUF" " SBUF"  " } ] [ SBUF" \n" string-lines ] unit-test
-[ { SBUF" " SBUF" " } ] [ SBUF" \r" string-lines ] unit-test
-[ { SBUF" " SBUF" " } ] [ SBUF" \r\n" string-lines ] unit-test
-[ { SBUF" hello" } ] [ SBUF" hello" string-lines ] unit-test
-[ { SBUF" hello" SBUF" " } ] [ SBUF" hello\n" string-lines ] unit-test
-[ { SBUF" hello" SBUF" " } ] [ SBUF" hello\r" string-lines ] unit-test
-[ { SBUF" hello" SBUF" " } ] [ SBUF" hello\r\n" string-lines ] unit-test
-[ { SBUF" hello" SBUF" hi" } ] [ SBUF" hello\nhi" string-lines ] unit-test
-[ { SBUF" hello" SBUF" hi" } ] [ SBUF" hello\rhi" string-lines ] unit-test
-[ { SBUF" hello" SBUF" hi" } ] [ SBUF" hello\r\nhi" string-lines ] unit-test
+[ { "" } ] [ SBUF" " string-lines ] unit-test
+[ { "" "" } ] [ SBUF" \n" string-lines ] unit-test
+[ { "" "" } ] [ SBUF" \r" string-lines ] unit-test
+[ { "" "" } ] [ SBUF" \r\n" string-lines ] unit-test
+[ { "hello" } ] [ SBUF" hello" string-lines ] unit-test
+[ { "hello" "" } ] [ SBUF" hello\n" string-lines ] unit-test
+[ { "hello" "" } ] [ SBUF" hello\r" string-lines ] unit-test
+[ { "hello" "" } ] [ SBUF" hello\r\n" string-lines ] unit-test
+[ { "hello" "hi" } ] [ SBUF" hello\nhi" string-lines ] unit-test
+[ { "hello" "hi" } ] [ SBUF" hello\rhi" string-lines ] unit-test
+[ { "hello" "hi" } ] [ SBUF" hello\r\nhi" string-lines ] unit-test
 
 [ { "hey" "world" "what's" "happening" } ]
 [ "heyAworldBwhat'sChappening" [ LETTER? ] split-when ] unit-test

diff --git a/core/splitting/splitting.factor b/core/splitting/splitting.factor
index 16944c3120aebd697481a1bb9cbefdbd20d0ec90..2498984354bca14c60cfb9212334406a35806ba4 100644 (file)
--- a/core/splitting/splitting.factor
+++ b/core/splitting/splitting.factor
@@ -121,5 +121,4 @@ M: string string-lines
         1array
     ] if ;
 
-M: sbuf string-lines
-    [ "" like string-lines ] keep [ like ] curry map ;
\ No newline at end of file
+M: sbuf string-lines "" like string-lines ;