~ 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