From 1d496164aff177ba44d3dfaa50cbafd40000965e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 2 May 2019 07:31:34 -0700 Subject: interpreter: small code tidying in me_interp_macro. * eval.c (me_interp_macro): Combine initialization and assignment into one. There was previously code between the two that got removed when the old debugger was scrubbed. --- eval.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/eval.c b/eval.c index 2daaceb6..ef05a682 100644 --- a/eval.c +++ b/eval.c @@ -2034,8 +2034,7 @@ static val me_interp_macro(val expander, val form, val menv) val body = cddr(expander); val saved_de = set_dyn_env(make_env(nil, nil, dyn_env)); val exp_env = bind_macro_params(env, menv, params, arglist, nil, form); - val result; - result = eval_progn(body, exp_env, body); + val result = eval_progn(body, exp_env, body); set_dyn_env(saved_de); set_origin(result, form); return result; -- cgit v1.2.3