case: Introduce new functions for numbers and substrings in cases.

[pspp] / src / language / xforms / count.c

diff --git a/src/language/xforms/count.c b/src/language/xforms/count.c
index bf3c9e9ac5ad87cc39f1452998357e1a8b0988e2..1f35045290cfc0f879db4cfa17d4eaa2bd0ce779 100644 (file)
--- a/src/language/xforms/count.c
+++ b/src/language/xforms/count.c
@@ -356,7 +356,7 @@ count_trns_proc (void *trns_, struct ccase **c,
          counter += count_numeric (crit, *c);
        else
          counter += count_string (crit, *c);
-      case_data_rw (*c, dv->var)->f = counter;
+      *case_num_rw (*c, dv->var) = counter;
     }
   return TRNS_CONTINUE;
 }