~ chicken-core (chicken-5) ddaacdfdb11a0a1c0d1e6363b1af3af78746575c

commit ddaacdfdb11a0a1c0d1e6363b1af3af78746575c
Merge: 903ff596 cc86c30c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Nov 13 12:37:21 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Nov 13 12:37:21 2010 +0100

    Merge branch 'master' of ssh://chicken@call-cc.org/~/chicken-core

diff --cc compiler.scm
index bc2e7439,5ccd7894..90fd2dbc
--- a/compiler.scm
+++ b/compiler.scm
@@@ -2176,9 -2182,11 +2182,10 @@@
  					       [custom
  						(and refs sites
  						     (= (length refs) (length sites)) 
+ 						     (test varname 'value)
  						     (proper-list? llist) ) ] )
  					  (when (and name 
 -						     custom
 -						     (not (= (llist-length llist) (length (cdr subs)))))
 +						     (not (llist-match? llist (cdr subs))))
  					    (quit
  					     "~a: procedure `~a' called with wrong number of arguments" 
  					     (source-info->line name)