X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fcontrol%2Fdo-if.c;h=83de0e39a31a73574bfe0fa0b781dafc96eafbf0;hb=6b6718a372daeaa66d69e126f9ee4a9bf46bf059;hp=a44f6e81896f2efb528eeb6c01e20f944c62f4d0;hpb=27bd188495ec1a6085354b10545daba47771b517;p=pspp diff --git a/src/language/control/do-if.c b/src/language/control/do-if.c index a44f6e8189..83de0e39a3 100644 --- a/src/language/control/do-if.c +++ b/src/language/control/do-if.c @@ -124,9 +124,12 @@ int cmd_else (struct lexer *lexer UNUSED, struct dataset *ds) { struct do_if_trns *do_if = ctl_stack_top (&do_if_class); - assert (ds == do_if->ds); + if (do_if == NULL || !must_not_have_else (do_if)) return CMD_CASCADING_FAILURE; + + assert (ds == do_if->ds); + add_else (do_if); return CMD_SUCCESS; } @@ -174,7 +177,7 @@ must_not_have_else (struct do_if_trns *do_if) { if (has_else (do_if)) { - msg (SE, _("This command may not follow ELSE in DO IF...END IF.")); + msg (SE, _("This command may not follow %s in %s ... %s."), "ELSE", "DO IF", "END IF"); return false; } else