From: Mark H Weaver <mhw@netris.org>
Date: Fri, 4 Mar 2011 18:44:02 +0000 (-0500)
Subject: Within `while', `continue' takes zero arguments
X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/ddf134cfec0d82ea9f39ddd69948c08feecb9576

Within `while', `continue' takes zero arguments

* module/ice-9/boot-9.scm (while): Report an error if `continue' is
  passed one or more arguments.  Previously, it would report an error if
  `(continue arg rest ...)' was found within the `while', but not if
  `continue' was found bare and later applied to one or more arguments,
  e.g. `(apply continue (list arg rest ...))'.
---

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 7ca08062f..a0b207cff 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2803,8 +2803,8 @@ module '(ice-9 q) '(make-q q-length))}."
                          ((_ . args)
                           (syntax-violation 'continue "too many arguments" x))
                          (_
-                          #'(lambda args 
-                              (apply abort-to-prompt continue-tag args))))))
+                          #'(lambda ()
+                              (abort-to-prompt continue-tag))))))
                    (do () ((not cond)) body ...))
                  (lambda (k) (lp)))))
             (lambda (k)