diff options
author | Mark H Weaver <mhw@netris.org> | 2013-09-12 18:04:08 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2013-09-12 18:04:08 -0400 |
commit | 89ffbb1c2e8d06ec35b8c994e65b9bb7ad29e52a (patch) | |
tree | e7e5888da6fb60554f11f7baa66e5d404d423d0a /module/srfi/srfi-9.scm | |
parent | f3f7a02600f14b039f6ef8ee6572342bdc76519c (diff) | |
download | guile-89ffbb1c2e8d06ec35b8c994e65b9bb7ad29e52a.tar.gz |
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.
Diffstat (limited to 'module/srfi/srfi-9.scm')
-rw-r--r-- | module/srfi/srfi-9.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/srfi/srfi-9.scm b/module/srfi/srfi-9.scm index d213a8656..2fc892865 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)))))))))) |