Fix memory leak in LIST command.

[pspp-builds.git] / src / language / data-io / list.q

diff --git a/src/language/data-io/list.q b/src/language/data-io/list.q
index 60f51b523b0c0250abbe4ae43753880be464ff4b..738b667183523a210d6530b74ef4f15ea2b598e8 100644 (file)
--- a/src/language/data-io/list.q
+++ b/src/language/data-io/list.q
@@ -178,6 +178,7 @@ cmd_list (struct lexer *lexer, struct dataset *ds)
   ok = proc_commit (ds) && ok;
 
   subcase_destroy (&sc);
+  free (cmd.v_variables);
 
   return ok ? CMD_SUCCESS : CMD_CASCADING_FAILURE;
 }