~ chicken-core (chicken-5) 64b367b4d480eb57030bca6080f26f87ee10665d

commit 64b367b4d480eb57030bca6080f26f87ee10665d
Author:     felix <bunny351@gmail.com>
AuthorDate: Tue Apr 27 13:24:02 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Tue Apr 27 13:24:02 2010 +0200

    turned warning about unused local assignment into notice

diff --git a/compiler.scm b/compiler.scm
index 758bccf2..a03a3781 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -1919,7 +1919,8 @@
 		    (null? references)
 		    (not (variable-mark sym '##compiler#unused)))
 	   (when assigned-locally
-	     (compiler-warning 'var "local assignment to unused variable `~S' may be unintended" sym) )
+	     (##sys#notice 
+	      (sprintf "local assignment to unused variable `~S' may be unintended" sym) ) )
 	   (when (and (not (variable-visible? sym))
 		      (not (variable-mark sym '##compiler#constant)) )
 	     (##sys#notice