[Pspp-cvs] Changes to pspp/src/examine.q

[John Darrington]

Index: pspp/src/examine.q
diff -u pspp/src/examine.q:1.20 pspp/src/examine.q:1.21
--- pspp/src/examine.q:1.20     Tue Jan 18 15:15:12 2005
+++ pspp/src/examine.q  Fri Jan 21 11:59:39 2005
@@ -218,6 +218,19 @@
   if ( dependent_vars ) 
     free (dependent_vars);
 
+  {
+    struct factor *f = factors ;
+    while ( f ) 
+      {
+       struct factor *ff = f;
+
+       f = f->next;
+       free ( ff->fs );
+       hsh_destroy ( ff->fstats ) ;
+       free ( ff ) ;
+      }
+  }
+
   subc_list_double_destroy(&percentile_list);
 
   return CMD_SUCCESS;