mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

Within while', continue' takes zero arguments

Browse source 
* 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 ...))'.
This commit is contained in:
Mark H Weaver 2011-03-04 13:44:02 -05:00
parent 495a39c40f
commit ddf134cfec
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/boot-9.scm
View file

@ -2803,8 +2803,8 @@ module '(ice-9 q) '(make-q q-length))}."
((_ . args) ((_ . args)
(syntax-violation 'continue "too many arguments" x)) (syntax-violation 'continue "too many arguments" x))
(_ (_
#'(lambda args #'(lambda ()
(apply abort-to-prompt continue-tag args)))))) (abort-to-prompt continue-tag))))))
(do () ((not cond)) body ...)) (do () ((not cond)) body ...))
(lambda (k) (lp))))) (lambda (k) (lp)))))
(lambda (k) (lambda (k)