From 19003d4656d5450e6d8208ed6d8368216204e48d Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Tue, 24 Jan 2012 22:42:47 -0800 Subject: [PATCH] Check record-length before dereferencing. --- src/runtime/defstr.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/runtime/defstr.scm b/src/runtime/defstr.scm index 652e811e4..af1d43ad9 100644 --- a/src/runtime/defstr.scm +++ b/src/runtime/defstr.scm @@ -790,6 +790,9 @@ differences: (DECLARE (IGNORE-REFERENCE-TRAPS (SET ,(close tag-name context)))) (AND (,(absolute '%RECORD? context) OBJECT) + (,(absolute 'NOT context) + (,(absolute 'ZERO? context) + (,(absolute '%RECORD-LENGTH context) OBJECT))) (,(absolute 'EQ? context) (,(absolute '%RECORD-REF context) OBJECT 0) ;++ Work around a bug in the expander. -- 2.25.1