factor: Update split-lines tests, fix other tests

[factor.git] / basis / io / crlf / crlf.factor

diff --git a/basis/io/crlf/crlf.factor b/basis/io/crlf/crlf.factor
index 43f6ae0cd6c6bc1515201bb27efc3b45deff8147..1efdbb4dd7f229c9a81402c932af790561a96b3e 100644 (file)
--- a/basis/io/crlf/crlf.factor
+++ b/basis/io/crlf/crlf.factor
@@ -26,8 +26,9 @@ IN: io.crlf
 : crlf>lf ( str -- str' )
     CHAR: \r swap remove ;
 
+! Note: can't use split-lines here
 : lf>crlf ( str -- str' )
-    split-lines "\r\n" join ;
+    "\n" split "\r\n" join ;
 
 :: stream-read1-ignoring-crlf ( stream -- ch )
     stream stream-read1 dup "\r\n" member?