~ 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