[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-156-g222056d

[Chris K. Jester-Young]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=222056dcf22ae7f1ab52df81a40d286c1eba9b3a

The branch, stable-2.0 has been updated
       via  222056dcf22ae7f1ab52df81a40d286c1eba9b3a (commit)
      from  6f0e534fcfe8b465ae383a62b97f5ff71086d474 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 222056dcf22ae7f1ab52df81a40d286c1eba9b3a
Author: Chris K. Jester-Young <address@hidden>
Date:   Fri Oct 14 00:27:27 2011 -0400

    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.

-----------------------------------------------------------------------

Summary of changes:
 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 f661d08..0c150cf 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


hooks/post-receive
-- 
GNU Guile