strings, multiline: Fix unexpected-eof.
parent
efe355804a
commit
4aa8c93546
|
@ -19,7 +19,7 @@ ERROR: bad-heredoc identifier ;
|
||||||
dup ";" =
|
dup ";" =
|
||||||
[ drop lexer get next-line ]
|
[ drop lexer get next-line ]
|
||||||
[ % "\n" % (parse-here) ] if
|
[ % "\n" % (parse-here) ] if
|
||||||
] [ ";" unexpected-eof ] if* ;
|
] [ ";" throw-unexpected-eof ] if* ;
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
|
@ -48,7 +48,7 @@ SYNTAX: STRING:
|
||||||
lexer get next-line
|
lexer get next-line
|
||||||
0 end (scan-multiline-string)
|
0 end (scan-multiline-string)
|
||||||
] if*
|
] if*
|
||||||
] [ end unexpected-eof ] if ;
|
] [ end throw-unexpected-eof ] if ;
|
||||||
|
|
||||||
:: (parse-multiline-string) ( end-text skip-n-chars -- str )
|
:: (parse-multiline-string) ( end-text skip-n-chars -- str )
|
||||||
[
|
[
|
||||||
|
|
|
@ -163,7 +163,7 @@ ERROR: trailing-characters string ;
|
||||||
(parse-multiline-string)
|
(parse-multiline-string)
|
||||||
] if*
|
] if*
|
||||||
] [
|
] [
|
||||||
unexpected-eof
|
throw-unexpected-eof
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
Loading…
Reference in New Issue