(does_dict_need_translation) Fix bug: inverted return value (!).

diff --git a/src/data/ChangeLog b/src/data/ChangeLog
index 92520a1c757dd9c602594ea63c81f5eae049b2aa..c643a2eb2dd05499c8d330a6178ce5c70829bd3a 100644 (file)
--- a/src/data/ChangeLog
+++ b/src/data/ChangeLog
@@ -1,3 +1,8 @@
+Sat May  6 14:25:49 2006  Ben Pfaff  <blp@gnu.org>
+
+       * sys-file-writer.c: (does_dict_need_translation) Fix bug:
+       inverted return value (!).
+
 Sat May  6 13:37:52 2006  Ben Pfaff  <blp@gnu.org>
 
        Continue reforming procedure execution.  

diff --git a/src/data/sys-file-writer.c b/src/data/sys-file-writer.c
index 89a513d03b6539b6bd6dbd1d2fd588a35b314e67..fe2c27c8102c71f23852d9d9ada4abd44b78f2b4 100644 (file)
--- a/src/data/sys-file-writer.c
+++ b/src/data/sys-file-writer.c
@@ -328,6 +328,10 @@ sfm_open_writer (struct file_handle *fh, struct dictionary *d,
   goto error;
 }
 
+/* Returns zero if dictionary D's cases are ordered in the
+   natural manner, with the first variable followed by the
+   second, and so on,
+   nonzero otherwise. */
 static int
 does_dict_need_translation (const struct dictionary *d)
 {
@@ -339,10 +343,10 @@ does_dict_need_translation (const struct dictionary *d)
     {
       struct variable *v = dict_get_var (d, i);
       if (v->fv != case_idx)
-        return 0;
+        return 1;
       case_idx += v->nv;
     }
-  return 1;
+  return 0;
 }
 
 /* Returns value of X truncated to two least-significant digits. */