From bd39d7d8225e1d0f4e2e93ebe28f4aba820a23a8 Mon Sep 17 00:00:00 2001
From: Ben Pfaff <blp@cs.stanford.edu>
Date: Mon, 27 Sep 2010 18:49:25 -0700
Subject: [PATCH] DO REPEAT: Report an error when END REPEAT is missing.

Bug #31016.
---
 src/language/control/repeat.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/language/control/repeat.c b/src/language/control/repeat.c
index d7cc544f..69c92ac1 100644
--- a/src/language/control/repeat.c
+++ b/src/language/control/repeat.c
@@ -306,7 +306,10 @@ parse_lines (struct lexer *lexer, struct repeat_block *block)
 
       /* Retrieve an input line and make a copy of it. */
       if (!lex_get_line_raw (lexer))
-        return false;
+        {
+          msg (SE, _("DO REPEAT without END REPEAT."));
+          return false;
+        }
       ds_init_string (&text, lex_entire_line_ds (lexer));
 
       /* Record file name. */
-- 
2.30.2