Add multipass procedures. Add two-pass moments calculation. Rewrite

[pspp-builds.git] / src / vars-atr.c

diff --git a/src/vars-atr.c b/src/vars-atr.c
index ee4d230246c6e233d68a52e65b8de7f97b60a897..c0730022354f2ab88dfe278b4d6949fb61bc04b9 100644 (file)
--- 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;
     }