splitting: string-lines is 30-70% faster.

core/splitting/splitting.factor

@@ -91,15 +91,23 @@ PRIVATE>
 : split*-when ( ... seq quot: ( ... elt -- ... ? ) -- ... pieces )
     [ split*, ] { } make ; inline
 
+<PRIVATE
+
+: crlf? ( str -- ? )
+    [ dup CHAR: \r = [ drop t ] [ CHAR: \n = ] if ] find drop ;
+    inline
+
+PRIVATE>
+
 GENERIC: string-lines ( str -- seq )
 
 M: string string-lines
-    dup "\r\n" intersects? [
+    dup crlf? [
-        "\n" split [
+        "\n" split
-            but-last-slice [
+        [ but-last-slice [ "\r" ?tail drop "\r" split ] map! drop ]
-                "\r" ?tail drop "\r" split
+        [ [ length 1 - ] keep [ "\r" split ] change-nth ]
-            ] map
+        [ concat ]
-        ] keep last "\r" split suffix concat
+        tri
     ] [
         1array
     ] if ;