diff options
author | Chris K. Jester-Young <cky944@gmail.com> | 2011-10-14 00:27:27 -0400 |
---|---|---|
committer | Chris K. Jester-Young <cky944@gmail.com> | 2012-01-15 12:36:46 -0500 |
commit | 222056dcf22ae7f1ab52df81a40d286c1eba9b3a (patch) | |
tree | 139162cf370f29a9cd5804220d01cb6853934d0d | |
parent | 6f0e534fcfe8b465ae383a62b97f5ff71086d474 (diff) | |
download | guile-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.scm | 4 |
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 |