~ chicken-core (chicken-5) fa40fd33a759ca065a601bdb7a9b4ecc3cf8358d

commit fa40fd33a759ca065a601bdb7a9b4ecc3cf8358d
Author:     felix <felix@z.(none)>
AuthorDate: Sun Apr 3 09:11:08 2011 +0200
Commit:     felix <felix@z.(none)>
CommitDate: Sun Apr 3 09:11:08 2011 +0200

    always show warning if declared type doesn't match assigned type

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 9abb2edd..ed8418b4 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -433,8 +433,8 @@
 		    (sprintf "expected ~a a single result, but were given ~a result~a"
 		      what n (multiples n)))
 		   (first tv))))))
-    (define (report loc desc)
-      (when complain
+    (define (report loc desc #!optional (show complain))
+      (when show
 	(warning
 	 (conc (location-name loc) desc))))
     (define (location-name loc)
@@ -709,7 +709,8 @@
 		       loc
 		       (sprintf 
 			   "assignment of value of type `~a' to toplevel variable `~a' does not match declared type `~a'"
-			 rt var type)))
+			 rt var type)
+		       #t))
 		    (when (and b (eq? 'undefined (cdr b)))
 		      (set-cdr! b rt))
 		    (when b