strings, multiline: Fix unexpected-eof.

db4
Doug Coleman 2013-03-23 21:42:26 -07:00
parent efe355804a
commit 4aa8c93546
2 changed files with 3 additions and 3 deletions

View File

@ -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 )
[

View File

@ -163,7 +163,7 @@ ERROR: trailing-characters string ;
(parse-multiline-string)
] if*
] [
unexpected-eof
throw-unexpected-eof
] if ;
PRIVATE>