diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-01-25 10:13:33 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-01-25 10:13:33 -0800 |
| commit | 12454b0e43160c851e20614ce888d33c2f8d9b16 (patch) | |
| tree | 3d411b95942f9d5e159f09f8e0d6a0d1bc54e3e1 | |
| parent | 0ac6eb1b659feea84c37f8f6d3b81ae990c75adf (diff) | |
| download | txr-12454b0e43160c851e20614ce888d33c2f8d9b16.tar.gz txr-12454b0e43160c851e20614ce888d33c2f8d9b16.tar.bz2 txr-12454b0e43160c851e20614ce888d33c2f8d9b16.zip | |
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.
| -rw-r--r-- | eval.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |