From 3855e35dafad79edc877ecc7ab67621dafb2b883 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 19 Sep 2009 16:32:12 -0700 Subject: [PATCH] Back out change to disable type checks for accessors and modifiers; it's tickling a compiler bug. --- src/runtime/defstr.scm | 2 -- 1 file changed, 2 deletions(-) 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 -- 2.25.1