[Pspp-cvs] pspp/src/language/control ChangeLog repeat.c

[Ben Pfaff]

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Changes by:     Ben Pfaff <blp> 06/12/10 04:12:40

Modified files:
        src/language/control: ChangeLog repeat.c 

Log message:
                * repeat.c (parse_lines): Issue an error when attempting to nest
                DO REPEAT in compatibility mode.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/src/language/control/ChangeLog?cvsroot=pspp&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/pspp/src/language/control/repeat.c?cvsroot=pspp&r1=1.21&r2=1.22

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/pspp/pspp/src/language/control/ChangeLog,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- ChangeLog   3 Dec 2006 22:16:45 -0000       1.6
+++ ChangeLog   10 Dec 2006 04:12:40 -0000      1.7
@@ -1,3 +1,8 @@
+Sat Dec  9 20:12:34 2006  Ben Pfaff  <address@hidden>
+
+       * repeat.c (parse_lines): Issue an error when attempting to nest
+       DO REPEAT in compatibility mode.
+
 Sat Dec  2 17:01:59 2006  Ben Pfaff  <address@hidden>
 
        Significant cleanup to DO REPEAT.

Index: repeat.c
===================================================================
RCS file: /cvsroot/pspp/pspp/src/language/control/repeat.c,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- repeat.c    7 Dec 2006 07:09:06 -0000       1.21
+++ repeat.c    10 Dec 2006 04:12:40 -0000      1.22
@@ -329,7 +329,12 @@
                            &command_ends_before_line,
                            &command_ends_after_line);
       if (recognize_do_repeat (ds_ss (&text)))
+        {
+          if (get_syntax () == COMPATIBLE)
+            msg (SE, _("DO REPEAT may not nest in compatibility mode."));
+          else
         nesting_level++;
+        }
       else if (recognize_end_repeat (ds_ss (&text), &block->print)
                && nesting_level-- == 0)
         {