Support binding in @(repeat)/@(rep) :vars.

* match.c (extract_bindings): Check for (var expr) syntax,
evaluate and bind.

* match.h (vars_k): Declared.

* parser.y (expand_repeat_rep_args): New static function.
(repeat_rep_helper): The :counter and :var arguments of
repeat/rep must be macro-expanded, since there can be Lisp
expressions there. This supports the new feature, but also
fixes the bug of :counter (var form) not expanding
form.

* txr.1: Updated documentation about :vars in @(repeat).

1 files changed, 1 insertions, 1 deletions

diff --git a/match.h b/match.h
index 2b2547fa..ebae051c 100644
--- a/match.h
+++ b/match.h
@@ -26,7 +26,7 @@
 
 extern val text_s, choose_s, gather_s, do_s, require_s;
 extern val close_s, load_s, include_s, mod_s, modlast_s, line_s;
-extern val counter_k, env_k, var_k;
+extern val counter_k, vars_k, env_k, var_k;
 val match_filter(val name, val arg, val other_args);
 val match_fun(val name, val args, val input, val files);
 val include(val specline);