~ chicken-core (master) 29dd1e50dfd6f131fba4430ccda02ee9fc05b674

commit 29dd1e50dfd6f131fba4430ccda02ee9fc05b674
Author:     felix <felix@z.(none)>
AuthorDate: Sun Nov 28 17:16:49 2010 +0100
Commit:     felix <felix@z.(none)>
CommitDate: Sun Nov 28 17:16:49 2010 +0100

    disabled if-branch-undefd scrutinizer check for thetime being

diff --git a/scrutinizer.scm b/scrutinizer.scm
index e7c82dd9..6a15f97e 100644
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -549,7 +549,7 @@
 			(r2 (walk a e loc dest tail)))
 		    ;;XXX this is too heavy, perhaps provide "style" warnings?
 		    ;;XXX this could also check for noreturn (same as undefined)
-		    (when (and tail
+		    #;(when (and tail
 			       (if (eq? '##core#undefined (node-class c))
 				   (and (not (eq? '##core#undefined (node-class a)))
 					(not (self-call? a loc)))