~ chicken-core (chicken-5) 790bbb6ccd599781507546acd20115df39d68382

commit 790bbb6ccd599781507546acd20115df39d68382
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Aug 15 21:23:59 2012 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Wed Aug 15 21:34:34 2012 +0200

    Handle struct-types in subtype-relationship test.
    
    Struct types were simply forgotten in the implementation
    of the subtype-relationship test ("type<=?") in scrutinizer.scm
    
    Reported by megane (#898)
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 37eefbc8..110eb399 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -1487,6 +1487,7 @@
 				 ((list vector)
 				  (and (= (length t1) (length t2))
 				       (every test (cdr t1) (cdr t2))))
+				 ((struct) (eq? (cadr t1) (cadr t2)))
 				 ((procedure)
 				  (let ((args1 (if (named? t1) (caddr t1) (cadr t1)))
 					(args2 (if (named? t2) (caddr t2) (cadr t2)))