From 12454b0e43160c851e20614ce888d33c2f8d9b16 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 25 Jan 2017 10:13:33 -0800
Subject: 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.
---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
cgit v1.2.3