basis: ERROR: changes.

[factor.git] / basis / multiline / multiline.factor

diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor
index 1c2c1d462dfac8ba3a856db332fa941c76dcb9db..a374290ad7e8bb8904dfd99436b1230ba1b63847 100644 (file)
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@@ -28,7 +28,7 @@ ERROR: text-found-before-eol string ;
 : parse-here ( -- str )
     [
         lexer get
-        dup rest-of-line [ text-found-before-eol ] unless-empty
+        dup rest-of-line [ throw-text-found-before-eol ] unless-empty
         (parse-here)
     ] "" make but-last ;
 
@@ -71,7 +71,7 @@ SYNTAX: STRING:
             begin-text lexer (parse-til-line-begins)
         ] if
     ] [
-        begin-text bad-heredoc
+        begin-text throw-bad-heredoc
     ] if ;
 
 : parse-til-line-begins ( begin-text lexer -- seq )