~ chicken-core (chicken-5) 494c12e90f9150d41bf41294dd279adadbb510cd

commit 494c12e90f9150d41bf41294dd279adadbb510cd
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Nov 25 08:41:00 2010 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Nov 25 08:41:00 2010 -0500

    scrutinizer-enhancement is too heavy, need to reconsider

diff --git a/scrutinizer.scm b/scrutinizer.scm
index e321032e..9cea1d5c 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)))
-		    (when (and tail
+		    ;;XXX this is too heavy
+		    #;(when (and tail
 			       (if (eq? '##core#undefined (node-class c))
 				   (not (eq? '##core#undefined (node-class a)))
 				   (eq? '##core#undefined (node-class a))))