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 8d2918a769a2528da8d0673f4619ba09e274d256..36c019c01d07d50f15c7019a9a007718c0f4260c 100644 (file)
--- a/src/formats.c
+++ b/src/formats.c
@@ -28,8 +28,6 @@
 #include "str.h"
 #include "var.h"
 
-#undef DEBUGGING
-/*#define DEBUGGING 1*/
 #include "debug-print.h"
 
 #if DEBUGGING
@@ -47,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);
 }
 
@@ -86,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;