summaryrefslogtreecommitdiffstats
path: root/match.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 /match.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 'match.c')
-rw-r--r--match.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/match.c b/match.c
index f13b2578..1dece256 100644
--- a/match.c
+++ b/match.c
@@ -1277,6 +1277,10 @@ static val subst_vars(val spec, val bindings, val filter)
val modifiers = fourth(elem);
val pair = assoc(sym, bindings);
+ if (modifiers)
+ modifiers = mapcar(curry_123_2(func_n3(txeval), spec, bindings),
+ modifiers);
+
if (pair) {
val str = cdr(pair);