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

fix syntax-taint problem in expander

Browse Source
This commit is contained in:
Matthew Flatt 2011-08-07 10:46:35 -06:00
parent 3b031d6c87
commit ff024068d9
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/src/compile.c
View File

@ -4723,6 +4723,8 @@ static int arg_count(Scheme_Object *lam, Scheme_Comp_Env *env)
Scheme_Object *l, *id, *form = lam;
int cnt = 0;
DupCheckRecord r;
lam = scheme_stx_taint_disarm(lam, NULL);
lam = SCHEME_STX_CDR(lam);
if (!SCHEME_STX_PAIRP(lam)) return -1;