~ chicken-core (chicken-5) e2fb31c4e4fb9a1ad44065494476ebde289b164e

commit e2fb31c4e4fb9a1ad44065494476ebde289b164e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Nov 6 10:26:18 2011 +0100
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Sun Nov 6 10:28:02 2011 +0100

    fix subtype check for fixed-size list/vector types in scrutinizer
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 967f82e8..e2f4e438 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -1472,6 +1472,9 @@
 				   (lambda (t) (test t t2))))
 				 ((vector-of list-of) (test (second t1) (second t2)))
 				 ((pair) (every test (cdr t1) (cdr t2)))
+				 ((list vector)
+				  (and (= (length t1) (length t2))
+				       (every test (cdr t1) (cdr t2))))
 				 ((procedure)
 				  (let ((args1 (if (named? t1) (caddr t1) (cadr t1)))
 					(args2 (if (named? t2) (caddr t2) (cadr t2)))