X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fvars-atr.c;h=c0730022354f2ab88dfe278b4d6949fb61bc04b9;hb=b9e28aa5614a079548c616bcf97aa804024ad647;hp=ee4d230246c6e233d68a52e65b8de7f97b60a897;hpb=60d7d619ee7885ad065f178eb0cf1e5d432b1921;p=pspp-builds.git

diff --git a/src/vars-atr.c b/src/vars-atr.c
index ee4d2302..c0730022 100644
--- a/src/vars-atr.c
+++ b/src/vars-atr.c
@@ -19,7 +19,7 @@
 
 #include <config.h>
 #include "var.h"
-#include <assert.h>
+#include "error.h"
 #include <stdlib.h>
 #include "alloc.h"
 #include "command.h"
@@ -55,9 +55,11 @@ discard_variables (void)
 
   n_lag = 0;
   
-  if (vfm_source)
+  if (vfm_source != NULL)
     {
-      vfm_source->destroy_source ();
+      if (vfm_source->class->destroy != NULL)
+        vfm_source->class->destroy (vfm_source);
+      free (vfm_source);
       vfm_source = NULL;
     }