split-file: New function output_split_file_values_peek().

[pspp] / src / language / stats / ctables.c

diff --git a/src/language/stats/ctables.c b/src/language/stats/ctables.c
index 05e9824b7d0b02fb88e10a6b025794fe3aa80af5..476681b2bc0ff0b6d49478ab5118f8d5bd61eb6a 100644 (file)
--- a/src/language/stats/ctables.c
+++ b/src/language/stats/ctables.c
@@ -5627,14 +5627,7 @@ ctables_execute (struct dataset *ds, struct casereader *input,
   while (casegrouper_get_next_group (grouper, &group))
     {
       if (splitting)
-        {
-          struct ccase *c = casereader_peek (group, 0);
-          if (c != NULL)
-            {
-              output_split_file_values (ds, c);
-              case_unref (c);
-            }
-        }
+        output_split_file_values_peek (ds, group);
 
       bool warn_on_invalid = true;
       for (struct ccase *c = casereader_read (group); c;