Use Lisp eval for :var inits in collect and gather.

* match.c (vars_to_bindings): Use tleval_144 instead of txeval.

1 files changed, 1 insertions, 1 deletions

diff --git a/match.c b/match.c
index edba90fc..af3a0843 100644
--- a/match.c
+++ b/match.c
@@ -397,7 +397,7 @@ static val vars_to_bindings(val spec, val vars, val bindings)
       ptail = list_collect(ptail, cons(item, noval_s));
     } else if (consp(item) && bindable(first(item))) {
       ptail = list_collect(ptail, cons(first(item),
-                                       txeval(spec, second(item), bindings)));
+                                       tleval_144(spec, second(item), bindings)));
     } else {
       sem_error(spec, lit("not a variable spec: ~a"), item, nao);
     }