From: Ben Pfaff <blp@gnu.org>
Date: Mon, 31 Jul 2006 17:32:55 +0000 (+0000)
Subject: Allow a comma between specifications on PRINT.
X-Git-Tag: v0.6.0~746
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;ds=sidebyside;h=92663dc410e00240f55c9736c18ffb922de345b5;p=pspp-builds.git

Allow a comma between specifications on PRINT.
---

diff --git a/src/language/data-io/ChangeLog b/src/language/data-io/ChangeLog
index d0eff570..3f0b3622 100644
--- a/src/language/data-io/ChangeLog
+++ b/src/language/data-io/ChangeLog
@@ -1,3 +1,7 @@
+Mon Jul 31 10:32:31 2006  Ben Pfaff  <blp@gnu.org>
+
+	* print.c (parse_specs): Allow a comma between specifications.
+
 Sun Jul 16 19:57:10 2006  Ben Pfaff  <blp@gnu.org>
 
 	* automake.mk: (src_language_data_io_libdata_io_a_SOURCE) Add
diff --git a/src/language/data-io/print.c b/src/language/data-io/print.c
index f6ba6e90..64e1e13f 100644
--- a/src/language/data-io/print.c
+++ b/src/language/data-io/print.c
@@ -240,6 +240,8 @@ parse_specs (struct pool *tmp_pool, struct print_trns *trns,
                                       which_formats);
       if (!ok)
 	return 0;
+
+      lex_match (',');
     }
 
   if (trns->record_cnt != 0 && trns->record_cnt != record)