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

Fix <"

db4
Slava Pestov 2008-09-24 19:04:44 -05:00
parent 4b19afdb4e
commit eae7e95d9b
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/multiline/multiline-tests.factor
View File

@ -10,4 +10,7 @@ bar
[ "foo\nbar\n" ] [ test-it ] unit-test [ "foo\nbar\n" ] [ test-it ] unit-test
[ "foo\nbar\n" ] [ <" foo [ "foo\nbar\n" ] [ <" foo
bar bar
"> ] unit-test "> ] unit-test
[ "hello\nworld" ] [ <" hello
world"> ] unit-test

2
basis/multiline/multiline.factor
View File

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