mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Improve error reporting of procedures defined by define-inlinable.

Browse source 
* 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.
This commit is contained in:
Mark H Weaver 2013-09-12 18:04:08 -04:00
parent f3f7a02600
commit 89ffbb1c2e
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/boot-9.scm
View file

@ -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))))))))))

2
module/srfi/srfi-9.scm
View file

@ -122,6 +122,8 @@
#'((lambda (formals ...)
body ...)
args ...))
((_ a (... ...))
(syntax-violation 'name "Wrong number of arguments" x))
(_
(identifier? x)
#'proc-name))))))))))