diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2012-01-09 15:23:46 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2012-01-09 15:23:46 -0800 |
commit | d8df8beb2e00517a546d753586d67e14ffa4611d (patch) | |
tree | f52a9dac50dd69e65f29d23ee966711f601be4f2 /eval.c | |
parent | 2098cacb547ba399c879bd53fff8dd5b1408f81f (diff) | |
download | txr-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) { |