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

[pspp] / src / data / dataset.c

diff --git a/src/data/dataset.c b/src/data/dataset.c
index b94a3675c6668ac4ce4ae6362c7db145d58846f3..f966b63af96ab807d6c927d3a34f8053210b99fe 100644 (file)
--- a/src/data/dataset.c
+++ b/src/data/dataset.c
@@ -818,7 +818,7 @@ store_case_num (void *var_, struct ccase **cc, casenumber case_num)
   struct variable *var = var_;
 
   *cc = case_unshare (*cc);
-  case_data_rw (*cc, var)->f = case_num;
+  *case_num_rw (*cc, var) = case_num;
 
   return TRNS_CONTINUE;
 }