From 95cb36b1dc7dc1cf21c31cbf44989bfe8ece5018 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 9 Jun 2006 16:18:49 +0000
Subject: [PATCH] fix out-of-bounds array access

svn: r3305
---
 src/mzscheme/src/module.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index db515d2851..84f2a413a6 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -2125,6 +2125,7 @@ Scheme_Object *scheme_check_accessible_in_module(Scheme_Env *env, Scheme_Object
 
     if (pos) {
       if (env->module->provide_protects
+	  && (SCHEME_INT_VAL(pos) < env->module->num_provides)
 	  && env->module->provide_protects[SCHEME_INT_VAL(pos)]) {
 	if (_protected)
 	  *_protected = 1;