conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/ikarus.handlers.ss
View File

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

2
scheme/last-revision
View File

@ -1 +1 @@
1432 1433