~ chicken-core (chicken-5) 167be53b4c23c3917a7fc9638ce1375ad81e9589

commit 167be53b4c23c3917a7fc9638ce1375ad81e9589
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Aug 24 10:36:07 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Aug 24 10:36:07 2011 +0200

    disable some debug output

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 2bca6c09..99fb973d 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -935,7 +935,7 @@
 
   (define (match1 t1 t2)
     ;; note: the order of determining the type is important
-    (dd "   match1: ~s <-> ~s" t1 t2)
+    ;;(dd "   match1: ~s <-> ~s" t1 t2)
     (cond ((eq? t1 t2))
 	  ((and (symbol? t1) (assq t1 typeenv)) => 
 	   (lambda (e) 
@@ -1544,7 +1544,7 @@
 		 (let adjust ((new (cadr e)))
 		   (if (pair? new)
 		       (cond ((and (vector? (car new))
-				   (eq? 'procedure (vector-ref new 0)))
+				   (eq? 'procedure (vector-ref (car new) 0)))
 			      ;;XXX this format is not used yet:
 			      (let loop ((props (cdr (vector->list (car new)))))
 				(unless (null? props)