summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2012-01-09 15:23:46 -0800
committerKaz Kylheku <kaz@kylheku.com>2012-01-09 15:23:46 -0800
commitd8df8beb2e00517a546d753586d67e14ffa4611d (patch)
treef52a9dac50dd69e65f29d23ee966711f601be4f2 /eval.c
parent2098cacb547ba399c879bd53fff8dd5b1408f81f (diff)
downloadtxr-d8df8beb2e00517a546d753586d67e14ffa4611d.tar.gz
txr-d8df8beb2e00517a546d753586d67e14ffa4611d.tar.bz2
txr-d8df8beb2e00517a546d753586d67e14ffa4611d.zip
* eval.c (subst_vars): Evaluate the
modifiers, so expressions can be used. * match.c (subst_vars): Likewise, but using txeval.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index 325c4a00..70711b45 100644
--- a/eval.c
+++ b/eval.c
@@ -744,7 +744,7 @@ static val subst_vars(val forms, val env)
if (sym == var_s) {
val sym = second(form);
val pat = third(form);
- val modifiers = fourth(form);
+ val modifiers = eval_args(fourth(form), env, form);
val pair = lookup_var(env, sym);
if (pair) {