~ chicken-core (chicken-5) 34e8b79ecc8acd7d160949a02dcb5cc6f65e69fc

commit 34e8b79ecc8acd7d160949a02dcb5cc6f65e69fc
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Dec 3 09:55:29 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Dec 3 09:55:29 2010 +0100

    silly bug in scrutinizer

diff --git a/scrutinizer.scm b/scrutinizer.scm
old mode 100644
new mode 100755
index af4626f8..22a21bc3
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -572,11 +572,11 @@
 				r1 r2))
 			  (else '*)))))
 	       ((let)
-		(assert (= 2 (length body))) ;XXX should always be the case
+		(assert (= 2 (length subs))) ;XXX should always be the case
 		(let ((t (single 
 			  (sprintf "in `let' binding of `~a'" (real-name (first params)))
-			  (walk (first body) e loc (first vars) #f) loc)))
-		  (walk (second body) (append (alist-cons (car vars) t e2) e) loc dest tail)))
+			  (walk (first subs) e loc (first vars) #f) loc)))
+		  (walk (second subs) (append (alist-cons (car vars) t e2) e) loc dest tail)))
 	       ((##core#lambda lambda)
 		(decompose-lambda-list
 		 (first params)