1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00

Call scm-error with the correct argument order.

* module/ice-9/boot-9.scm (catch, with-throw-handler): Switch the order
  of the error key and function name arguments.
This commit is contained in:
Chris K. Jester-Young 2011-10-14 00:27:27 -04:00
parent 6f0e534fcf
commit 222056dcf2

View file

@ -142,7 +142,7 @@ If it exits normally, Guile unwinds the stack and dynamic context
and then calls the normal (third argument) handler. If it exits and then calls the normal (third argument) handler. If it exits
non-locally, that exit determines the continuation." non-locally, that exit determines the continuation."
(if (not (or (symbol? k) (eqv? k #t))) (if (not (or (symbol? k) (eqv? k #t)))
(scm-error "catch" 'wrong-type-arg (scm-error 'wrong-type-arg "catch"
"Wrong type argument in position ~a: ~a" "Wrong type argument in position ~a: ~a"
(list 1 k) (list k))) (list 1 k) (list k)))
(let ((tag (make-prompt-tag "catch"))) (let ((tag (make-prompt-tag "catch")))
@ -163,7 +163,7 @@ non-locally, that exit determines the continuation."
"Add @var{handler} to the dynamic context as a throw handler "Add @var{handler} to the dynamic context as a throw handler
for key @var{key}, then invoke @var{thunk}." for key @var{key}, then invoke @var{thunk}."
(if (not (or (symbol? k) (eqv? k #t))) (if (not (or (symbol? k) (eqv? k #t)))
(scm-error "with-throw-handler" 'wrong-type-arg (scm-error 'wrong-type-arg "with-throw-handler"
"Wrong type argument in position ~a: ~a" "Wrong type argument in position ~a: ~a"
(list 1 k) (list k))) (list 1 k) (list k)))
(with-fluids ((%exception-handler (with-fluids ((%exception-handler