[Chicken-hackers] [PATCH] structs in subtype-test

[Felix]

Struct types were simply forgotten in the implementation
of the subtype-relationship test ("type<=?") in scrutinizer.scm

Reported by megane, fixes #898.


cheers,
felix

>From 698f417e22fa3d978c60cb80fc9efdd106548d95 Mon Sep 17 00:00:00 2001
From: felix <address@hidden>
Date: Wed, 15 Aug 2012 21:23:59 +0200
Subject: [PATCH] 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)
---
 scrutinizer.scm |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 37eefbc..110eb39 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)))
-- 
1.7.0.4