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
commitd262f95544722f3edcc245d98b772e9254d6b5d1 (patch)
tree4ff279b7530116eb4647c93d18ff10090f18ccad
parente9b6b4c8e91025469e8fedcd1498da4227f30879 (diff)
downloadtxr-d262f95544722f3edcc245d98b772e9254d6b5d1.tar.gz
txr-d262f95544722f3edcc245d98b772e9254d6b5d1.tar.bz2
txr-d262f95544722f3edcc245d98b772e9254d6b5d1.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) &&