diff options
author | Mark H Weaver <mhw@netris.org> | 2011-03-04 13:44:02 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2011-03-08 18:20:17 -0500 |
commit | 4324bf9a961f0ed57376db752b67dba1a6344748 (patch) | |
tree | 7f0dbc50ddd3703f1ae224831304ccdebb144b93 | |
parent | 0748e3f3f07fb6b6680160ea488d73b04506f8c7 (diff) | |
download | guile-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.scm | 4 |
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) |