~ chicken-core (chicken-5) a3394007935818d1acbcaf7625aa893acc2efdb7

commit a3394007935818d1acbcaf7625aa893acc2efdb7
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Dec 3 12:43:55 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Dec 3 12:43:55 2010 +0100

    more silly bugs

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 22a21bc3..a658a99c 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -575,8 +575,8 @@
 		(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 subs) e loc (first vars) #f) loc)))
-		  (walk (second subs) (append (alist-cons (car vars) t e2) e) loc dest tail)))
+			  (walk (first subs) e loc (first params) #f) loc)))
+		  (walk (second subs) (append (alist-cons (car params) t e) e) loc dest tail)))
 	       ((##core#lambda lambda)
 		(decompose-lambda-list
 		 (first params)