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

fix expander bug introduced by my last commit

Browse Source
This commit is contained in:
Ryan Culpepper 2012-10-11 19:13:31 -04:00
parent 678fc4d6f8
commit f2e87ed72f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1796,7 +1796,7 @@ scheme_apply_macro(Scheme_Object *name, Scheme_Env *menv,
return code;
} else {
Scheme_Object *mark, *rands_vec[1], *track_code, *orig_code;
Scheme_Object *mark, *rands_vec[1], *track_code, *pre_code;
if (scheme_is_set_transformer(rator))
rator = scheme_set_transformer_proc(rator);
@ -1819,7 +1819,7 @@ scheme_apply_macro(Scheme_Object *name, Scheme_Env *menv,
code = scheme_stx_taint_disarm(code, NULL);
orig_code = code;
pre_code = code;
SCHEME_EXPAND_OBSERVE_MACRO_PRE_X(rec[drec].observer, code);
{
@ -1843,7 +1843,7 @@ scheme_apply_macro(Scheme_Object *name, Scheme_Env *menv,
scheme_pop_continuation_frame(&cframe);
}
SCHEME_EXPAND_OBSERVE_MACRO_POST_X(rec[drec].observer, code, orig_code);
SCHEME_EXPAND_OBSERVE_MACRO_POST_X(rec[drec].observer, code, pre_code);
if (!SCHEME_STXP(code)) {
scheme_raise_exn(MZEXN_FAIL_CONTRACT,