apply error now shows the procedure before the number of args.
This commit is contained in:
parent
398ff23992
commit
30bc1b7be9
|
@ -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
|
||||
|
|
|
@ -1 +1 @@
|
|||
1432
|
||||
1433
|
||||
|
|
Loading…
Reference in New Issue