summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChris K. Jester-Young <cky944@gmail.com>2011-10-14 00:27:27 -0400
committerChris K. Jester-Young <cky944@gmail.com>2012-01-15 12:36:46 -0500
commit222056dcf22ae7f1ab52df81a40d286c1eba9b3a (patch)
tree139162cf370f29a9cd5804220d01cb6853934d0d
parent6f0e534fcfe8b465ae383a62b97f5ff71086d474 (diff)
downloadguile-222056dcf22ae7f1ab52df81a40d286c1eba9b3a.tar.gz
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.
-rw-r--r--module/ice-9/boot-9.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index f661d08ad..0c150cf8d 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -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