pivot-table: Kluge dropping default 9-point font to make output readable.

[pspp] / src / language / stats / oneway.c

diff --git a/src/language/stats/oneway.c b/src/language/stats/oneway.c
index ef20cbafbf1135810df8bf1bfdd0d5dbe714aa46..c33d333ce4b9a459d8f3f94809b6f069720eba5e 100644 (file)
--- a/src/language/stats/oneway.c
+++ b/src/language/stats/oneway.c
@@ -551,7 +551,10 @@ cmd_oneway (struct lexer *lexer, struct dataset *ds)
            }
 
          if ( ll_count (coefficient_list) <= 0)
-           goto error;
+            {
+              destroy_coeff_list (cl);
+              goto error;
+            }
 
          ll_push_tail (&oneway.contrast_list, &cl->ll);
        }
@@ -1362,7 +1365,8 @@ show_comparisons (const struct oneway_spec *cmd, const struct oneway_workspace *
   struct pivot_table *table = pivot_table_create__ (
     pivot_value_new_user_text_nocopy (xasprintf (
                                         _("Multiple Comparisons (%s)"),
-                                        var_to_string (cmd->vars[v]))));
+                                        var_to_string (cmd->vars[v]))),
+    "Multiple Comparisons");
   table->omit_empty = true;
 
   struct pivot_dimension *statistics = pivot_dimension_create (