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