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

fix bytecode validator to reject symbolic requires in modules

Browse Source 
svn: r17487
This commit is contained in:
Matthew Flatt 2010-01-05 22:35:20 +00:00
parent 6151119d5e
commit 485858fa72
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9762,7 +9762,7 @@ static int check_requires_ok(Scheme_Object *l)
Scheme_Object *x; Scheme_Object *x;
while (!SCHEME_NULLP(l)) { while (!SCHEME_NULLP(l)) {
x = SCHEME_CAR(l); x = SCHEME_CAR(l);
if (!SCHEME_SYMBOLP(x) && !SAME_TYPE(SCHEME_TYPE(x), scheme_module_index_type)) if (!SAME_TYPE(SCHEME_TYPE(x), scheme_module_index_type))
return 0; return 0;
l = SCHEME_CDR(l); l = SCHEME_CDR(l);
} }