~ chicken-core (chicken-5) e069b289416b030d853882170faa2cb67b6196c1


commit e069b289416b030d853882170faa2cb67b6196c1
Author:     felix <bunny351@gmail.com>
AuthorDate: Fri Apr 23 10:36:44 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Fri Apr 23 10:36:44 2010 +0200

    turned warning for typeds.db conflict into notice

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 0767458f..abe52418 100644
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -619,9 +619,9 @@
 	      (old (##sys#get name '##core#type))
 	      (new (cadr e)))
 	 (when (and old (not (equal? old new)))
-	   (compiler-warning 
-	    'scrutiny
-	    "type-definition `~a' for toplevel binding `~a' conflicts with previously loaded type `~a'"
-	    name new old))
+	   (##sys#notice
+	    (sprintf
+		"type-definition `~a' for toplevel binding `~a' conflicts with previously loaded type `~a'"
+		name new old)))
 	 (##sys#put! name '##core#type new)))
      (read-file dbfile))))
Trap