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

add missing bytecode-unmarshal check

Browse Source
This commit is contained in:
Matthew Flatt 2011-12-10 11:43:18 -07:00
parent bf90cf9028
commit be2afcdcc9
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/racket/src/marshal.c
View File

@ -1391,8 +1391,10 @@ static Scheme_Object *read_module(Scheme_Object *obj)
if (!SCHEME_PAIRP(obj)) return_NULL();
me->src_modidx = SCHEME_CAR(obj);
obj = SCHEME_CDR(obj);
((Scheme_Modidx *)m->me->src_modidx)->resolved = m->modname;
m->self_modidx = m->me->src_modidx;
if (!SAME_TYPE(SCHEME_TYPE(me->src_modidx), scheme_module_index_type))
return_NULL();
((Scheme_Modidx *)me->src_modidx)->resolved = m->modname;
m->self_modidx = me->src_modidx;
if (!SCHEME_PAIRP(obj)) return_NULL();
e = SCHEME_CAR(obj);