Fix TXR 97 regression in quasiliterals.

* eval.c (expand_quasi): When the modifiers argument of a var
item is expanded, the expansion incorrectly places it as the
fourth item rather than third. This is effectively a continuation
of the incomplete regression fix that was applied on 2014-08-29.
The breakage is that `@{(expr) modifier}` ignores modifier
whenever (expr) is an expression that undergoes expansion.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 1b9b7805..c7cd95d8 100644
--- a/eval.c
+++ b/eval.c
@@ -2371,7 +2371,7 @@ static val expand_quasi(val quasi_forms, val menv)
         val mods_ex = expand_forms(mods, menv);
 
         if (param_ex != param || mods_ex != mods)
-          form_ex = rlcp(list(sym, param_ex, nil, mods_ex, nao), form);
+          form_ex = rlcp(list(sym, param_ex, mods_ex, nao), form);
       }
     }