X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Fget.c;h=a4f5f8faeb03d9c6694e862aa2f74e1614197927;hb=6e352378b703f57313fdd0f628b99b19ff25d055;hp=383513e632f0aadb5640d17e4cb81411fd312711;hpb=2a802b79f217dfa51749c1f2b594c061b5d85120;p=pspp-builds.git

diff --git a/src/language/data-io/get.c b/src/language/data-io/get.c
index 383513e6..a4f5f8fa 100644
--- 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));