From 4aa8c935467a7a48794ac1e9d6ac6af50d70c152 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 23 Mar 2013 21:42:26 -0700 Subject: [PATCH] strings, multiline: Fix unexpected-eof. --- basis/multiline/multiline.factor | 4 ++-- core/strings/parser/parser.factor | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor index e8f4b02491..0bc616cbb6 100644 --- a/basis/multiline/multiline.factor +++ b/basis/multiline/multiline.factor @@ -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 ) [ diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor index 7544be1da7..99178e9858 100644 --- a/core/strings/parser/parser.factor +++ b/core/strings/parser/parser.factor @@ -163,7 +163,7 @@ ERROR: trailing-characters string ; (parse-multiline-string) ] if* ] [ - unexpected-eof + throw-unexpected-eof ] if ; PRIVATE> -- 2.34.1