splitting: slightly faster string-lines.

diff --git a/core/splitting/splitting.factor b/core/splitting/splitting.factor
index 305e06c46764be9493abad326027a13853f2b544..69a66eb5fdba5c6c3736f3083b626750ce6352e3 100644 (file)
--- a/core/splitting/splitting.factor
+++ b/core/splitting/splitting.factor
@@ -104,8 +104,15 @@ GENERIC: string-lines ( str -- seq )
 M: string string-lines
     dup crlf? [
         "\n" split
-        [ but-last-slice [ "\r" ?tail drop "\r" split ] map! drop ]
-        [ [ length 1 - ] keep [ "\r" split ] change-nth ]
+        [
+            but-last-slice [
+                dup ?last CHAR: \r = [ but-last ] when
+                [ CHAR: \r = ] split-when
+            ] map! drop
+        ] [
+            [ length 1 - ] keep
+            [ [ CHAR: \r = ] split-when ] change-nth
+        ]
         [ concat ]
         tri
     ] [