~ chicken-core (chicken-5) 3a2f7e376e1b5f5a8b1ed7483a3dfe3fc8c53c2e

commit 3a2f7e376e1b5f5a8b1ed7483a3dfe3fc8c53c2e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 9 16:48:32 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 9 16:48:32 2011 +0200

    removed some unused code in scrutinizer

diff --git a/scrutinizer.scm b/scrutinizer.scm
index cc86e623..ce4526c4 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -1374,14 +1374,7 @@
 		    (else
 		     (case (car t1)
 		       ((or) (every (cut type<=? <> t2) (cdr t1)))
-		       ((vector) (type<=? (second t1) (second t2)))
-		       ((list) 
-			(case (car t2)
-			  ((list) (type<=? (second t1) (second t2)))
-			  ((pair) 
-			   (and (type<=? (second t1) (second t2))
-				(type<=? t1 (third t2))))
-			  (else #f)))
+		       ((vector list) (type<=? (second t1) (second t2)))
 		       ((pair) (every type<=? (cdr t1) (cdr t2)))
 		       ((procedure)
 			(let ((args1 (if (named? t1) (caddr t1) (cadr t1)))