Fix memory leaks.

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

diff --git a/src/vars-atr.c b/src/vars-atr.c
index c0730022354f2ab88dfe278b4d6949fb61bc04b9..cf4ef4e32c2030d5fbd9ab21498f545e782de241 100644 (file)
--- a/src/vars-atr.c
+++ b/src/vars-atr.c
@@ -57,9 +57,7 @@ discard_variables (void)
   
   if (vfm_source != NULL)
     {
-      if (vfm_source->class->destroy != NULL)
-        vfm_source->class->destroy (vfm_source);
-      free (vfm_source);
+      free_case_source (vfm_source);
       vfm_source = NULL;
     }