~ chicken-core (chicken-5) 48a1c43acae276cd8cea71e9218b5e9d26f9ffd5

commit 48a1c43acae276cd8cea71e9218b5e9d26f9ffd5
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jun 10 14:34:04 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jun 10 14:34:04 2011 +0200

    omit argtype checks unless dest is declared

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 31a4f72d..33471ae3 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -696,8 +696,10 @@
 				      (not 
 				       (eq? 'no
 					    (variable-mark dest '##compiler#escape)))
+				      (variable-mark dest '##compiler#declared-type)
 				      escaping-procedures
 				      (not unsafe))
+			     (debugging 'x "checks argument-types" dest)
 			     (generate-type-checks! n dest vars inits))
 			   (list
 			    (append