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

2008-03-25 22:15:10 -04:00
parent 398ff23992
commit 30bc1b7be9
2 changed files with 3 additions and 3 deletions
@@ -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