~ chicken-core (chicken-5) d8cab033a8af891274c2b6e3935a80e0413ef701

commit d8cab033a8af891274c2b6e3935a80e0413ef701
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Nov 25 09:10:42 2010 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Nov 25 09:10:42 2010 -0500

    comments in scrutinizer

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 9cea1d5c..e07f0efd 100644
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -537,7 +537,8 @@
 		  (always-true rt loc n)
 		  (let ((r1 (walk c e loc dest tail))
 			(r2 (walk a e loc dest tail)))
-		    ;;XXX this is too heavy
+		    ;;XXX this is too heavy, perhaps provide "style" warnings?
+		    ;;XXX this could also check for noreturn (same as undefined)
 		    #;(when (and tail
 			       (if (eq? '##core#undefined (node-class c))
 				   (not (eq? '##core#undefined (node-class a)))