Changed DFM from open-at-first-access to explicit-open. Before,

[pspp-builds.git] / src / vfm.c

diff --git a/src/vfm.c b/src/vfm.c
index 0c152c09f78bb17cf551182d6e9aa563f47c5847..b5d2a8d3564e76641e692bace61df3fe3befcf76 100644 (file)
--- a/src/vfm.c
+++ b/src/vfm.c
@@ -435,8 +435,12 @@ close_active_file (void)
   /* Old data sink becomes new data source. */
   if (vfm_sink->class->make_source != NULL)
     vfm_source = vfm_sink->class->make_source (vfm_sink);
-  else
-    vfm_source = NULL;
+  else 
+    {
+      if (vfm_sink->class->destroy != NULL)
+        vfm_sink->class->destroy (vfm_sink);
+      vfm_source = NULL; 
+    }
   free_case_sink (vfm_sink);
   vfm_sink = NULL;