~ 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