From f2e87ed72fa5b0e64b2be2161039e6281ff00b21 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 11 Oct 2012 19:13:31 -0400 Subject: [PATCH] fix expander bug introduced by my last commit --- src/racket/src/fun.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/racket/src/fun.c b/src/racket/src/fun.c index 95e76252d9..ea5ed6a134 100644 --- a/src/racket/src/fun.c +++ b/src/racket/src/fun.c @@ -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,