~ chicken-core (chicken-5) c538e9d663f6f2b2c4da65732441b279bdaee4d6

commit c538e9d663f6f2b2c4da65732441b279bdaee4d6
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon May 9 19:53:01 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon May 9 19:53:01 2011 +0200

    added reminder

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 263f2c5b..18bcb775 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -679,7 +679,7 @@
 		    (when (and (not type)
 			       (not b)
 			       (not (eq? '* rt))
-			       (not (variable-visible? var))
+			       (not (variable-visible? var)) ;XXX needed?
 			       (not (get db var 'unknown)))
 		      (and-let* ((val (or (get db var 'value)
 					  (get db var 'local-value))))