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.

1 files changed, 1 insertions, 1 deletions

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);