From d8df8beb2e00517a546d753586d67e14ffa4611d Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 9 Jan 2012 15:23:46 -0800
Subject: * eval.c (subst_vars): Evaluate the modifiers, so expressions can be
 used.

* match.c (subst_vars): Likewise,
but using txeval.
---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'eval.c')

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) {
-- 
cgit v1.2.3