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

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.
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

View file

@ -4161,6 +4161,8 @@ when none is available, reading FILE-NAME with READER."
(lambda (formals ...) (lambda (formals ...)
body ...)) body ...))
args ...)) args ...))
((_ a (... ...))
(syntax-violation 'name "Wrong number of arguments" x))
(_ (_
(identifier? x) (identifier? x)
#'proc-name)))))))))) #'proc-name))))))))))

View file

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