~ chicken-core (chicken-5) c6812e621f0b28bc0749f9323b4a3c8b59586b15


commit c6812e621f0b28bc0749f9323b4a3c8b59586b15
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jun 17 07:41:55 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jun 17 07:41:55 2011 +0200

    turned subtype-declaration warning into notice

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 1a7ffc1d..d42ffd00 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -855,7 +855,7 @@
 				  (length rt)))
 			       (set! rt (list (first rt))))
 			     (unless (type<=? t (first rt))
-			       (report
+			       (report-notice
 				loc
 				(sprintf
 				    "expression returns a result of type `~a', but is declared to return `~a', which is not a subtype"
Trap