bugfix: wrong context form in mac-param-bind.

* eval.c (do_expand): Expander for mac-param-bind is
redundantly expanding the main expression and taking that as
the epanded context form, rather than expanding the context
form.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index bdb1f0a7..b46cfb05 100644
--- a/eval.c
+++ b/eval.c
@@ -3986,7 +3986,7 @@ static val do_expand(val form, val menv)
       val expr = pop(&args);
       val body = args;
       val new_menv = make_var_shadowing_env(menv, get_param_syms(params));
-      val ctx_expr_ex = expand(expr, menv);
+      val ctx_expr_ex = expand(ctx_expr, menv);
       cons_bind (params_ex, body_ex0,
                  expand_params(params, body, menv, t, form));
       val body_ex = expand_progn(body_ex0, new_menv);