* psppire-dict.c (psppire_dict_dump): Don't use

[pspp-builds.git] / src / language / data-io / get.c

diff --git a/src/language/data-io/get.c b/src/language/data-io/get.c
index 383513e632f0aadb5640d17e4cb81411fd312711..a4f5f8faeb03d9c6694e862aa2f74e1614197927 100644 (file)
--- a/src/language/data-io/get.c
+++ b/src/language/data-io/get.c
@@ -337,6 +337,7 @@ parse_write_command (struct lexer *lexer, struct dataset *ds,
       goto error;
     }
 
+  dict_delete_scratch_vars (dict);
   dict_compact_values (dict);
 
   if (fh_get_referent (handle) == FH_REF_FILE)
@@ -983,6 +984,7 @@ cmd_match_files (struct lexer *lexer, struct dataset *ds)
       || !create_flag_var ("LAST", last_name, mtf.dict, &mtf.last))
     goto error;
 
+  dict_delete_scratch_vars (mtf.dict);
   dict_compact_values (mtf.dict);
   mtf.output = autopaging_writer_create (dict_get_next_value_idx (mtf.dict));
   taint = taint_clone (casewriter_get_taint (mtf.output));