X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fcontrol%2Frepeat.c;h=69c92ac108c439ebf141242a5565281070d60861;hb=8dfe93d6dde6f5a500c5c4f0dccb067fe647904c;hp=d7cc544fe6e8e001268b6c37643cacc91bce7daf;hpb=638a86001fe7a237bd6c19a181d796305290d72a;p=pspp

diff --git a/src/language/control/repeat.c b/src/language/control/repeat.c
index d7cc544fe6..69c92ac108 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. */