summaryrefslogtreecommitdiff
path: root/module/srfi/srfi-9.scm
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2013-09-13 00:24:04 -0400
committerMark H Weaver <mhw@netris.org>2013-09-13 00:24:04 -0400
commitc04bf4337b88ea45641065b7fe70dd0973b8ce94 (patch)
tree53e2d02477e40bd1da5a45cc3240ea1420691777 /module/srfi/srfi-9.scm
parent6871327742d3e1a0966aa8fed04c911311c12c2a (diff)
parent803c087e6b72f59ed9e529c1e1ca4fbe34e8eda5 (diff)
downloadguile-c04bf4337b88ea45641065b7fe70dd0973b8ce94.tar.gz
Merge remote-tracking branch 'origin/stable-2.0'
Conflicts: module/srfi/srfi-9.scm module/web/server.scm
Diffstat (limited to 'module/srfi/srfi-9.scm')
-rw-r--r--module/srfi/srfi-9.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/module/srfi/srfi-9.scm b/module/srfi/srfi-9.scm
index 2f092fe3b..7275eafcf 100644
--- a/module/srfi/srfi-9.scm
+++ b/module/srfi/srfi-9.scm
@@ -1,6 +1,7 @@
;;; srfi-9.scm --- define-record-type
-;; Copyright (C) 2001, 2002, 2006, 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2006, 2009, 2010, 2011, 2012,
+;; 2013 Free Software Foundation, Inc.
;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
@@ -122,6 +123,8 @@
#'((lambda (formals ...)
body ...)
args ...))
+ ((_ a (... ...))
+ (syntax-violation 'name "Wrong number of arguments" x))
(_
(identifier? x)
#'proc-name))))))))))