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 <[email protected]>
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

_______________________________________________
Chicken-hackers mailing list
[email protected]
https://lists.nongnu.org/mailman/listinfo/chicken-hackers

Reply via email to