suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix protect provides of syntax

Browse Source 
svn: r2189
This commit is contained in:
Matthew Flatt 2006-02-10 17:57:12 +00:00
parent 0e67ca6810
commit 4d0e4c1082
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/src/module.c
View File

@ -2074,8 +2074,7 @@ Scheme_Object *scheme_check_accessible_in_module(Scheme_Env *env, Scheme_Object
}
if (pos) {
if ((SCHEME_INT_VAL(pos) < env->module->num_var_provides)
&& env->module->provide_protects
if (env->module->provide_protects
&& env->module->provide_protects[SCHEME_INT_VAL(pos)]) {
if (_protected)
*_protected = 1;