fixing some quotes in strings bugs

db4
Doug Coleman 2009-09-20 15:08:06 -05:00
parent e3ff59c303
commit 31e7d355fe
2 changed files with 13 additions and 2 deletions

View File

@ -19,3 +19,15 @@ IN: strings.parser.tests
] [
error>> escaped-char-expected?
] must-fail-with
[
" \" abc \" "
] [
"\"\"\" \" abc \" \"\"\"" eval( -- string )
] unit-test
[
"\"abc\""
] [
"\"\"\"\"abc\"\"\"\"" eval( -- string )
] unit-test

View File

@ -131,8 +131,7 @@ DEFER: (parse-long-string)
dup rest-begins? [
[ lexer get ] dip length [ + ] curry change-column drop
] [
rest-of-line %
lexer get next-line "\n" % (parse-long-string)
lexer get next-char , (parse-long-string)
] if
] if ;