mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 16:30:19 +02:00
Code Activity

Call scm-error with the correct argument order.

Browse source 
* 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
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

@ -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