mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +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
non-locally, that exit determines the continuation."
(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"
(list 1 k) (list k)))
(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
for key @var{key}, then invoke @var{thunk}."
(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"
(list 1 k) (list k)))
(with-fluids ((%exception-handler