X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fvars-atr.c;h=00453767b2aefaea346363a1eab1f5294e9bf6ca;hb=f9d47b5bba8416419cf3bcd3aa23c2d40a05fcac;hp=ee4d230246c6e233d68a52e65b8de7f97b60a897;hpb=6ad392174e035d6e0823fd7894a0488acf274b97;p=pspp-builds.git

diff --git a/src/vars-atr.c b/src/vars-atr.c
index ee4d2302..00453767 100644
--- a/src/vars-atr.c
+++ b/src/vars-atr.c
@@ -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;
     }