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 | d131d10588ddf3d18e56c8b99e645734681354cc (patch) | |
tree | 4ff279b7530116eb4647c93d18ff10090f18ccad | |
parent | 0560a909867038d1f717f8962befea2840e79c98 (diff) | |
download | txr-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.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) && |