diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2019-10-13 19:51:22 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2019-10-13 19:51:22 -0700 |
commit | d262f95544722f3edcc245d98b772e9254d6b5d1 (patch) | |
tree | 4ff279b7530116eb4647c93d18ff10090f18ccad | |
parent | e9b6b4c8e91025469e8fedcd1498da4227f30879 (diff) | |
download | txr-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) && |