caseinit: Introduce new caseinit_translate_casereader_to_init_vars().

[pspp] / src / data / casewriter.c

diff --git a/src/data/casewriter.c b/src/data/casewriter.c
index 768a515e16e7a4bf15cd91c36528f8e7ffcd3d6e..51d5e10bfba4f762750c2b3687e4cefea16c1817 100644 (file)
--- a/src/data/casewriter.c
+++ b/src/data/casewriter.c
@@ -52,8 +52,8 @@ casewriter_write (struct casewriter *writer, struct ccase *c)
 {
   size_t n_widths UNUSED = caseproto_get_n_widths (writer->proto);
   assert (case_get_n_values (c) >= n_widths);
-  expensive_assert (caseproto_equal (case_get_proto (c), 0,
-                                     writer->proto, 0, n_widths));
+  expensive_assert (caseproto_range_equal (case_get_proto (c), 0,
+                                           writer->proto, 0, n_widths));
   writer->class->write (writer, writer->aux, c);
 }