[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-83-g89ffbb1

[Mark H Weaver]

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=89ffbb1c2e8d06ec35b8c994e65b9bb7ad29e52a

The branch, stable-2.0 has been updated
       via  89ffbb1c2e8d06ec35b8c994e65b9bb7ad29e52a (commit)
      from  f3f7a02600f14b039f6ef8ee6572342bdc76519c (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 89ffbb1c2e8d06ec35b8c994e65b9bb7ad29e52a
Author: Mark H Weaver <address@hidden>
Date:   Thu Sep 12 18:04:08 2013 -0400

    Improve error reporting of procedures defined by define-inlinable.
    
    * module/ice-9/boot-9.scm (define-inlinable): Improve error reporting
      when procedures defined using 'define-inlinable' are applied to the
      wrong number of arguments.
    
    * module/srfi/srfi-9.scm (define-tagged-inlinable): Improve error
      reporting when procedures defined using 'define-tagged-inlinable' are
      applied to the wrong number of arguments.

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

Summary of changes:
 module/ice-9/boot-9.scm |    2 ++
 module/srfi/srfi-9.scm  |    2 ++
 2 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 3cd3bdc..19c22ea 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -4161,6 +4161,8 @@ when none is available, reading FILE-NAME with READER."
                          (lambda (formals ...)
                            body ...))
                        args ...))
+                   ((_ a (... ...))
+                    (syntax-violation 'name "Wrong number of arguments" x))
                    (_
                     (identifier? x)
                     #'proc-name))))))))))
diff --git a/module/srfi/srfi-9.scm b/module/srfi/srfi-9.scm
index d213a86..2fc8928 100644
--- a/module/srfi/srfi-9.scm
+++ b/module/srfi/srfi-9.scm
@@ -122,6 +122,8 @@
                     #'((lambda (formals ...)
                          body ...)
                        args ...))
+                   ((_ a (... ...))
+                    (syntax-violation 'name "Wrong number of arguments" x))
                    (_
                     (identifier? x)
                     #'proc-name))))))))))


hooks/post-receive
-- 
GNU Guile