dictionary: Get rid of case indexes.

[pspp] / src / data / por-file-writer.c

diff --git a/src/data/por-file-writer.c b/src/data/por-file-writer.c
index fee6b1aff8223b64bb6f5f23c50aa70c2cd4a117..3d9b4b3fb3aed6f3b9483b4e2fee950516166214 100644 (file)
--- a/src/data/por-file-writer.c
+++ b/src/data/por-file-writer.c
@@ -130,7 +130,7 @@ pfm_open_writer (struct file_handle *fh, struct dictionary *dict,
       const struct variable *dv = dict_get_var (dict, i);
       struct pfm_var *pv = &w->vars[i];
       pv->width = MIN (var_get_width (dv), MAX_POR_WIDTH);
-      pv->case_index = var_get_case_index (dv);
+      pv->case_index = var_get_dict_index (dv);
     }
 
   w->digits = opts.digits;