~ chicken-core (chicken-5) 40b2d4cb1aec3ed1674132ea783c5bee07a7fcb9


commit 40b2d4cb1aec3ed1674132ea783c5bee07a7fcb9
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 17 23:20:04 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 17 23:20:04 2010 +0200

    turned unbound-warning in interpreter into notice

diff --git a/eval.scm b/eval.scm
index 2fadec19..961d6dc1 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1573,9 +1573,8 @@
 		     (let loop ((vars ##sys#unbound-in-eval) (u '()))
 		       (cond ((null? vars)
 			      (when (pair? u)
-				(##sys#print 
-				 "Warning: the following toplevel variables are referenced but unbound:\n" 
-				 #f ##sys#standard-error)
+				(##sys#notice
+				 "the following toplevel variables are referenced but unbound:\n")
 				(for-each 
 				 (lambda (v)
 				   (##sys#print "  " #f ##sys#standard-error)
Trap