everything passes again

[pspp] / src / language / control / do-if.c

diff --git a/src/language/control/do-if.c b/src/language/control/do-if.c
index f4fab4734ccadc0e191fae79c37115d3c3d07ed5..c564240bb16e3b300f6573014f1237ad049e2535 100644 (file)
--- a/src/language/control/do-if.c
+++ b/src/language/control/do-if.c
@@ -143,6 +143,13 @@ cmd_do_if (struct lexer *lexer, struct dataset *ds)
   return ok ? CMD_SUCCESS : CMD_CASCADING_FAILURE;
 }
 
+int
+cmd_inside_do_if (struct lexer *lexer UNUSED, struct dataset *ds UNUSED)
+{
+  msg (SE, _("This command cannot appear outside DO IF...END IF."));
+  return CMD_FAILURE;
+}
+
 static const struct trns_chain *
 do_if_find_clause (const struct do_if_trns *do_if,
                    struct ccase *c, casenumber case_num)