~ chicken-core (chicken-5) cbb27fe380ff8e45cdf04d812e1ec649bf45ca47

commit cbb27fe380ff8e45cdf04d812e1ec649bf45ca47
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Nov 12 09:25:58 2010 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Nov 12 09:25:58 2010 -0500

    always quit when directly called procedure has wrong number of args

diff --git a/compiler.scm b/compiler.scm
index 5ccd7894..00d0cdb0 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -2185,7 +2185,6 @@
 						     (test varname 'value)
 						     (proper-list? llist) ) ] )
 					  (when (and name 
-						     custom
 						     (not (= (llist-length llist) (length (cdr subs)))))
 					    (quit
 					     "~a: procedure `~a' called with wrong number of arguments"