From: Ben Pfaff <blp@cs.stanford.edu>
Date: Tue, 28 Sep 2010 01:49:25 +0000 (-0700)
Subject: DO REPEAT: Report an error when END REPEAT is missing.
X-Git-Tag: v0.7.6~150
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bd39d7d8225e1d0f4e2e93ebe28f4aba820a23a8;p=pspp-builds.git

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 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. */