Assorted improvements to diagnostics.

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

diff --git a/src/language/control/loop.c b/src/language/control/loop.c
index 5c8cb14f09292d84100cce4ed90cbdabe92fbfbb..4dbc7c90bd7ff0c3f62bf444177d50efed3974f8 100644 (file)
--- a/src/language/control/loop.c
+++ b/src/language/control/loop.c
@@ -122,9 +122,10 @@ cmd_loop (struct lexer *lexer, struct dataset *ds)
 }
 
 int
-cmd_inside_loop (struct lexer *lexer UNUSED, struct dataset *ds UNUSED)
+cmd_inside_loop (struct lexer *lexer, struct dataset *ds UNUSED)
 {
-  msg (SE, _("This command cannot appear outside LOOP...END LOOP."));
+  lex_ofs_error (lexer, 0, lex_ofs (lexer) - 1,
+                 _("This command cannot appear outside LOOP...END LOOP."));
   return CMD_FAILURE;
 }