Categoricals.c: Call payload->destroy inside categoricals_done

[pspp] / src / math / categoricals.c

diff --git a/src/math/categoricals.c b/src/math/categoricals.c
index d4d43243703cd30dd2a848f7f56bf148b8ffc5b8..5aeb7e213c6d564f95f424321e42a9ace4b91112 100644 (file)
--- a/src/math/categoricals.c
+++ b/src/math/categoricals.c
@@ -575,6 +575,8 @@ categoricals_done (const struct categoricals *cat_)
              const double bin = categoricals_get_code_for_case (cat, x, iv->ccase); \
              iap->enc_sum [x - iap->base_subscript_short] += bin * iv->cc;
            }
+         if (cat->payload && cat->payload->destroy)
+           cat->payload->destroy (cat->aux1, cat->aux2, iv->user_data);
        }
     }