~ 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