summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2019-10-13 19:51:22 -0700
committerKaz Kylheku <kaz@kylheku.com>2019-10-13 19:51:22 -0700
commitd131d10588ddf3d18e56c8b99e645734681354cc (patch)
tree4ff279b7530116eb4647c93d18ff10090f18ccad
parent0560a909867038d1f717f8962befea2840e79c98 (diff)
downloadtxr-d131d10588ddf3d18e56c8b99e645734681354cc.tar.gz
txr-d131d10588ddf3d18e56c8b99e645734681354cc.tar.bz2
txr-d131d10588ddf3d18e56c8b99e645734681354cc.zip
eval: bugfix: don't pass eval env to macroexpand.
* eval.c (eval_intrinsic): macroexpand must be called with the nil environment. If we had a macro env parameter, we could pass that. In any case, we mustn't pass an eval environment to the expander.
-rw-r--r--eval.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index e01c41e1..747fd74a 100644
--- a/eval.c
+++ b/eval.c
@@ -1450,7 +1450,7 @@ static val macroexpand(val form, val menv);
val eval_intrinsic(val form, val env)
{
- val form_ex = macroexpand(form, env);
+ val form_ex = macroexpand(form, nil);
val op;
if (consp(form_ex) &&