splitting: crlf? was unnecessary.

db4
John Benediktsson 2012-07-30 11:26:38 -07:00
parent 5b1b6b6bbb
commit 9d2a1a6b7c
1 changed files with 1 additions and 9 deletions

View File

@ -91,18 +91,10 @@ 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 crlf? [
dup [ "\r\n" member? ] any? [
"\n" split
[
but-last-slice [