everything passes again

[pspp] / src / language / control / loop.c

diff --git a/src/language/control/loop.c b/src/language/control/loop.c
index 22c73519de3caa70f48b8b2e25f0cd98bdb9510e..b55028177d588d4a588934571aa07e180e976f66 100644 (file)
--- a/src/language/control/loop.c
+++ b/src/language/control/loop.c
@@ -119,6 +119,13 @@ cmd_loop (struct lexer *lexer, struct dataset *ds)
   return ok ? CMD_SUCCESS : CMD_CASCADING_FAILURE;
 }
 
+int
+cmd_inside_loop (struct lexer *lexer UNUSED, struct dataset *ds UNUSED)
+{
+  msg (SE, _("This command cannot appear outside LOOP...END LOOP."));
+  return CMD_FAILURE;
+}
+
 static enum trns_result
 break_trns_proc (void *aux UNUSED, struct ccase **c UNUSED,
                  casenumber case_num UNUSED)
@@ -128,11 +135,11 @@ break_trns_proc (void *aux UNUSED, struct ccase **c UNUSED,
 
 /* Parses BREAK. */
 int
-cmd_break (struct lexer *lexer UNUSED, struct dataset *ds)
+cmd_break (struct lexer *lexer, struct dataset *ds)
 {
   if (!in_loop)
     {
-      msg (SE, _("BREAK cannot appear outside LOOP...END LOOP."));
+      cmd_inside_loop (lexer, ds);
       return CMD_FAILURE;
     }