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

fix validation of top-level define-{syntaxes,values-for-syntax}

Browse Source 
(Only appears in bytecode for non-module code.)

Merge to 5.1.2
This commit is contained in:
Matthew Flatt 2011-07-20 14:08:30 -06:00
parent 5b8a892fbb
commit 0d2b08f053
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/racket/src/validate.c
View File

@ -429,7 +429,7 @@ static void do_define_syntaxes_validate(Scheme_Object *data, Mz_CPort *port,
Scheme_Object *name, *val, *base_stack_depth, *dummy;
int sdepth;
if (!SCHEME_VECTORP(data)
if (!SAME_TYPE(SCHEME_TYPE(data), (for_stx ? scheme_define_for_syntax_type : scheme_define_syntaxes_type))
|| (SCHEME_VEC_SIZE(data) < 4))
scheme_ill_formed_code(port);