steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cleanup multiline

db4
Doug Coleman 2008-09-06 22:48:41 -05:00
parent 1ba054f021
commit 055d9dbed5
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/multiline/multiline.factor
View File

@ -37,9 +37,8 @@ PRIVATE>
: parse-multiline-string ( end-text -- str ) : parse-multiline-string ( end-text -- str )
[ [
lexer get column>> swap (parse-multiline-string) lexer get [ swap (parse-multiline-string) ] change-column drop
lexer get (>>column) ] "" make rest-slice but-last ;
] "" make rest but-last ;
: <" : <"
"\">" parse-multiline-string parsed ; parsing "\">" parse-multiline-string parsed ; parsing