From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 19 Sep 2009 23:32:12 +0000 (-0700)
Subject: Back out change to disable type checks for accessors and modifiers;
X-Git-Tag: 20100708-Gtk~333
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3855e35dafad79edc877ecc7ab67621dafb2b883;p=mit-scheme.git

Back out change to disable type checks for accessors and modifiers;
it's tickling a compiler bug.
---

diff --git a/src/runtime/defstr.scm b/src/runtime/defstr.scm
index 58c1d1263..7b8e5575a 100644
--- a/src/runtime/defstr.scm
+++ b/src/runtime/defstr.scm
@@ -616,7 +616,6 @@ differences:
 		     ,(close (structure/type-descriptor structure) context)
 		     ',name))
 		 `(DEFINE-INTEGRABLE (,accessor-name STRUCTURE)
-		    (DECLARE (NO-TYPE-CHECKS))
 		    (,(absolute (case (structure/physical-type structure)
 				  ((RECORD) '%RECORD-REF)
 				  ((VECTOR) 'VECTOR-REF)
@@ -645,7 +644,6 @@ differences:
 		     ,(close (structure/type-descriptor structure) context)
 		     ',name))
 		 `(DEFINE-INTEGRABLE (,modifier-name STRUCTURE VALUE)
-		    (DECLARE (NO-TYPE-CHECKS))
 		    ,(case (structure/physical-type structure)
 		       ((RECORD)
 			`(,(absolute '%RECORD-SET! context) STRUCTURE