apply error now shows the procedure before the number of args.

This commit is contained in:
Abdulaziz Ghuloum 2008-03-25 22:15:10 -04:00
parent 398ff23992
commit 30bc1b7be9
2 changed files with 3 additions and 3 deletions

View File

@ -62,8 +62,8 @@
(die 'apply "not a procedure" x)))
(define $incorrect-args-error-handler
(lambda (p n)
(die 'apply "incorrect number of arguments" n p)))
(lambda (p . ls)
(apply die 'apply "incorrect number of arguments" p ls)))
(define $multiple-values-error
(lambda args

View File

@ -1 +1 @@
1432
1433