summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2011-03-04 13:44:02 -0500
committerMark H Weaver <mhw@netris.org>2011-03-08 18:20:17 -0500
commit4324bf9a961f0ed57376db752b67dba1a6344748 (patch)
tree7f0dbc50ddd3703f1ae224831304ccdebb144b93
parent0748e3f3f07fb6b6680160ea488d73b04506f8c7 (diff)
downloadguile-4324bf9a961f0ed57376db752b67dba1a6344748.tar.gz
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 ...))'.
-rw-r--r--module/ice-9/boot-9.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 0f89dcece..4b28ad7b1 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2805,8 +2805,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)