summaryrefslogtreecommitdiff
path: root/module/srfi/srfi-9.scm
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2013-09-12 18:04:08 -0400
committerMark H Weaver <mhw@netris.org>2013-09-12 18:04:08 -0400
commit89ffbb1c2e8d06ec35b8c994e65b9bb7ad29e52a (patch)
treee7e5888da6fb60554f11f7baa66e5d404d423d0a /module/srfi/srfi-9.scm
parentf3f7a02600f14b039f6ef8ee6572342bdc76519c (diff)
downloadguile-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.scm2
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))))))))))