Assorted improvements to diagnostics.

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

diff --git a/src/language/control/do-if.c b/src/language/control/do-if.c
index 162118488c60bcd987bbff41fabf8e9708578db7..69288e5c1497111d611558c9e9329c1074d49741 100644 (file)
--- a/src/language/control/do-if.c
+++ b/src/language/control/do-if.c
@@ -147,9 +147,10 @@ cmd_do_if (struct lexer *lexer, struct dataset *ds)
 }
 
 int
-cmd_inside_do_if (struct lexer *lexer UNUSED, struct dataset *ds UNUSED)
+cmd_inside_do_if (struct lexer *lexer, struct dataset *ds UNUSED)
 {
-  msg (SE, _("This command cannot appear outside DO IF...END IF."));
+  lex_ofs_error (lexer, 0, lex_ofs (lexer) - 1,
+                 _("This command cannot appear outside DO IF...END IF."));
   return CMD_FAILURE;
 }