string-lines throws an error if input is not a string

2009-02-09 00:25:46 -06:00 · 2009-02-09 00:25:46 -06:00 · 4117430762
parent 54e4e8873a
commit 4117430762
1 changed files with 3 additions and 1 deletions
--- a/core/splitting/splitting.factor
+++ b/core/splitting/splitting.factor
@ -63,7 +63,9 @@ PRIVATE>
 : split ( seq separators -- pieces )
    [ split, ] { } make ;

-: string-lines ( str -- seq )
+GENERIC: string-lines ( str -- seq )
+
+M: string string-lines
    dup "\r\n" intersects? [
        "\n" split [
            but-last-slice [