~ chicken-core (chicken-5) 33a9c5b30f1b852d43c8bd5c87fe4389ef0ecd8d

commit 33a9c5b30f1b852d43c8bd5c87fe4389ef0ecd8d
Author:     felix <bunny351@gmail.com>
AuthorDate: Mon Apr 19 15:04:57 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Mon Apr 19 15:05:14 2010 +0200

    fixed bug in reporting known call with wrong number of args

diff --git a/compiler.scm b/compiler.scm
index aa31df8a..8c4fe994 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -2118,7 +2118,7 @@
 					    (quit
 					     "~a: procedure `~a' called with wrong number of arguments" 
 					     (source-info->line name)
-					     (cadr name)))
+					     (if (pair? name) (cadr name) name)))
 					  (register-direct-call! id)
 					  (when custom (register-customizable! varname id)) 
 					  (list id custom) )