fixing some quotes in strings bugs
parent
e3ff59c303
commit
31e7d355fe
core/strings/parser
|
@ -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
|
||||
|
|
|
@ -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 ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue