~ chicken-core (chicken-5) 1fd4db8c32b79ccab42bc73fd459cab2b62d232d

commit 1fd4db8c32b79ccab42bc73fd459cab2b62d232d
Author:     felix <bunny351@gmail.com>
AuthorDate: Mon Apr 19 15:04:57 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Mon Apr 19 15:04:57 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) )