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 ";" = 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 )
[ [

View File

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