From 3685dbd74d4f9930dfe2ce0ffa0547156cf27c1d Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 26 Jun 2016 09:46:34 -0700 Subject: Use Lisp eval for :var inits in collect and gather. * match.c (vars_to_bindings): Use tleval_144 instead of txeval. --- match.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); } -- cgit v1.2.3