Changed DFM from open-at-first-access to explicit-open. Before,

[pspp] / src / formats.c

diff --git a/src/formats.c b/src/formats.c
index aaf6f33fda0aeb30237fba147272ad63f9cee47e..36c019c01d07d50f15c7019a9a007718c0f4260c 100644 (file)
--- a/src/formats.c
+++ b/src/formats.c
@@ -45,21 +45,18 @@ static int internal_cmd_formats (int);
 int
 cmd_print_formats (void)
 {
-  lex_match_id ("FORMATS");
   return internal_cmd_formats (FORMATS_PRINT);
 }
 
 int
 cmd_write_formats (void)
 {
-  lex_match_id ("FORMATS");
   return internal_cmd_formats (FORMATS_WRITE);
 }
 
 int
 cmd_formats (void)
 {
-  lex_match_id ("FORMATS");
   return internal_cmd_formats (FORMATS_PRINT | FORMATS_WRITE);
 }
 
@@ -84,7 +81,7 @@ internal_cmd_formats (int which)
       if (token == '.')
        break;
 
-      if (!parse_variables (NULL, &v, &cv, PV_SAME_TYPE))
+      if (!parse_variables (default_dict, &v, &cv, PV_SAME_TYPE))
        return CMD_PART_SUCCESS_MAYBE;
       type = v[0]->type;