~ 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