X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fdataset-writer.c;fp=src%2Fdata%2Fdataset-writer.c;h=cfaa88ab5cb1913ff20842ac435f223bf6edac0e;hb=1dcdba517fbb5c99c37e0a03275325f256975c7c;hp=011deed39d3cc5ef0e9e33058766c9bd4e378808;hpb=afea472df1680beefe6d2b693f3c954fde3b3313;p=pspp

diff --git a/src/data/dataset-writer.c b/src/data/dataset-writer.c
index 011deed39d..cfaa88ab5c 100644
--- a/src/data/dataset-writer.c
+++ b/src/data/dataset-writer.c
@@ -73,14 +73,10 @@ dataset_writer_open (struct file_handle *fh,
   writer->ds = fh_get_dataset (fh);
 
   writer->dict = dict_clone (dictionary);
+  struct case_map_stage *stage = case_map_stage_create (writer->dict);
   dict_delete_scratch_vars (writer->dict);
-  if (dict_count_values (writer->dict, 0) < dict_get_n_vars (writer->dict))
-    {
-      writer->compactor = case_map_to_compact_dict (writer->dict, 0);
-      dict_compact_values (writer->dict);
-    }
-  else
-    writer->compactor = NULL;
+  writer->compactor = case_map_stage_get_case_map (stage);
+  case_map_stage_destroy (stage);
   writer->subwriter = autopaging_writer_create (dict_get_proto (writer->dict));
 
   casewriter = casewriter_create (dict_get_proto (writer->dict),