New functionality: mod and modlast directives in repeat and rep.

* eval.c (eval_init): Use new symbol variable mod_s instead
of calling intern.

* match.c (mod_s, modlast_s): Symbol variables defined.
(do_output_line): mod and modlast directives implemented under rep.
(do_output): likewise under repeat.
(syms_init): Initialize new symbol variables.

* match.h (mod_s, modlast_s): Declared.

* parser.l (MOD, MODLAST): Parse new token types.

* parser.y (MOD, MODLAST): New tokens.
(repeat_parts_opt, rep_parts_opt): New syntax.
(repeat_rep_helper): Handle mod and modlast syntax.

* txr.1: Updated.

* txr.vim: Updated.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index f3025be0..e5672f24 100644
--- a/eval.c
+++ b/eval.c
@@ -1264,7 +1264,7 @@ void eval_init(void)
   reg_fun(intern(lit("*"), user_package), func_n0v(mulv));
   reg_fun(intern(lit("abs"), user_package), func_n1(abso));
   reg_fun(intern(lit("trunc"), user_package), func_n2(trunc));
-  reg_fun(intern(lit("mod"), user_package), func_n2(mod));
+  reg_fun(mod_s, func_n2(mod));
   reg_fun(intern(lit("expt"), user_package), func_n0v(exptv));
   reg_fun(intern(lit("exptmod"), user_package), func_n3(exptmod));
   reg_fun(intern(lit("sqrt"), user_package), func_n1(isqrt));