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

fix bug in define-syntaxes bytecode validation

Browse Source 
svn: r6158
This commit is contained in:
Matthew Flatt 2007-05-06 12:13:51 +00:00
parent 78f2ac8405
commit 0a22386d0b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/syntax.c
View File

@ -4650,7 +4650,6 @@ static void do_define_syntaxes_validate(Scheme_Object *data, Mz_CPort *port,
base_stack_depth = SCHEME_VEC_ELS(data)[2];
sdepth = SCHEME_INT_VAL(base_stack_depth);
data = SCHEME_CDDR(data);
if (!SAME_TYPE(rp->so.type, scheme_resolve_prefix_type)
|| (sdepth < 0))
scheme_ill_formed_code(port);
@ -4662,8 +4661,9 @@ static void do_define_syntaxes_validate(Scheme_Object *data, Mz_CPort *port,
size = SCHEME_VEC_SIZE(data);
for (i = 4; i < size; i++) {
name = SCHEME_VEC_ELS(data)[i];
if (!SCHEME_SYMBOLP(name))
if (!SCHEME_SYMBOLP(name)) {
scheme_ill_formed_code(port);
}
}
}