case-map: Make creating a case_map destroy the stage.

[pspp] / src / language / commands / get.c

diff --git a/src/language/commands/get.c b/src/language/commands/get.c
index ea6323ba40dc97356983f7e76e23e026bbaaf0e1..79d8dc40cd48e99cdb6818e5f6267ebf655b1d89 100644 (file)
--- a/src/language/commands/get.c
+++ b/src/language/commands/get.c
@@ -143,8 +143,7 @@ parse_read_command (struct lexer *lexer, struct dataset *ds,
         goto error;
     }
 
-  map = case_map_stage_get_case_map (stage);
-  case_map_stage_destroy (stage);
+  map = case_map_stage_to_case_map (stage);
   if (map != NULL)
     reader = case_map_create_input_translator (map, reader);