Improve error messages for format specifiers.

[pspp] / src / language / dictionary / vector.c

diff --git a/src/language/dictionary/vector.c b/src/language/dictionary/vector.c
index fe1ab99e145227b2e808d23920ff7ae9c50ed7f9..35e47380555ffb6693b5251dc97474d19a501435 100644 (file)
--- a/src/language/dictionary/vector.c
+++ b/src/language/dictionary/vector.c
@@ -133,9 +133,15 @@ cmd_vector (struct lexer *lexer, struct dataset *ds)
               else if (lex_token (lexer) == T_ID && !seen_format)
                 {
                   seen_format = true;
-                  if (!parse_format_specifier (lexer, &format)
-                      || !fmt_check_output (&format))
+                  if (!parse_format_specifier (lexer, &format))
                     goto fail;
+                  char *error = fmt_check_output__ (&format);
+                  if (error)
+                    {
+                      lex_next_error (lexer, -1, -1, "%s", error);
+                      free (error);
+                      goto fail;
+                    }
                 }
               else
                 {