Fix warnings

[pspp-builds.git] / src / math / categoricals.c

diff --git a/src/math/categoricals.c b/src/math/categoricals.c
index b78fe9bf68e66dd89e03de3dc128599f8c2a2414..ba616be3bb06531725d96e144c8b131a515dde1c 100644 (file)
--- a/src/math/categoricals.c
+++ b/src/math/categoricals.c
@@ -414,7 +414,10 @@ categoricals_update (struct categoricals *cat, const struct ccase *c)
       cat->iap[i].cc += weight;
 
       if (cat->payload)
-       cat->payload->update (cat->aux1, cat->aux2, node->user_data, c, cat->exclude, cat->wv);
+       {
+         double weight = cat->wv ? case_data (c, cat->wv)->f : 1.0;
+         cat->payload->update (cat->aux1, cat->aux2, node->user_data, c, weight);
+       }
 
     }
 }