DO REPEAT: Report an error when END REPEAT is missing.

Bug #31016.

diff --git a/src/language/control/repeat.c b/src/language/control/repeat.c
index d7cc544fe6e8e001268b6c37643cacc91bce7daf..69c92ac108c439ebf141242a5565281070d60861 100644 (file)
--- 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. */