From c1e94e69d1bea54330bd94371b101828b31e9add Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 16 Mar 2016 06:21:33 -0700 Subject: Bugfix and @(repeat) and @(rep). * match.c (extract_bindings): Do not destructively append to vars, because that's a piece of syntax. The return value of extract_vars is freshly allocated, though, so we can fix this by reversing the arguments. --- match.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/match.c b/match.c index 4fbac813..5c2ce188 100644 --- a/match.c +++ b/match.c @@ -1617,7 +1617,7 @@ static val extract_vars(val output_spec) static val extract_bindings(val bindings, val output_spec, val vars) { list_collect_decl (bindings_out, ptail); - val var_list = nappend2(vars, extract_vars(output_spec)); + val var_list = nappend2(extract_vars(output_spec), vars); for (; bindings; bindings = cdr(bindings)) { val binding = car(bindings); -- cgit v1.2.3