X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Fdata-list.c;h=af24b373cbab61b8202eaf8302c83f7d5e4f1ef3;hb=8011f9998ed6cc3cd8948d080a1b7e36d932e5c5;hp=546e33f21e86424278256c4709ec7ef779597250;hpb=72c9c6a2f92e94779b2e55d0726568090411871c;p=pspp

diff --git a/src/language/data-io/data-list.c b/src/language/data-io/data-list.c
index 546e33f21e..af24b373cb 100644
--- a/src/language/data-io/data-list.c
+++ b/src/language/data-io/data-list.c
@@ -464,7 +464,14 @@ parse_free (struct lexer *lexer, struct dictionary *dict,
               input.d = 0;
             }
 
-          if (!fmt_check_input (&input) || !lex_force_match (lexer, T_RPAREN))
+          char *error = fmt_check_input__ (&input);
+          if (error)
+            {
+              lex_next_error (lexer, -1, -1, "%s", error);
+              free (error);
+              return NULL;
+            }
+          if (!lex_force_match (lexer, T_RPAREN))
             return NULL;
 
           /* As a special case, N format is treated as F format