New sspl function.

* eval (eval_init): Register sspl, an argument-reversed
interface to split-str-set.

* lib.c (sspl): New function.

* lib.h (sspl): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index fe11c763..2cc73d0e 100644
--- a/eval.c
+++ b/eval.c
@@ -6808,6 +6808,7 @@ void eval_init(void)
   reg_fun(intern(lit("split-str"), user_package), func_n3o(split_str_keep, 2));
   reg_fun(intern(lit("spl"), user_package), func_n3o(spl, 2));
   reg_fun(intern(lit("split-str-set"), user_package), func_n2(split_str_set));
+  reg_fun(intern(lit("sspl"), user_package), func_n2(sspl));
   reg_fun(intern(lit("tok-str"), user_package), func_n3o(tok_str, 2));
   reg_fun(intern(lit("tok"), user_package), func_n3o(tok, 2));
   reg_fun(intern(lit("tok-where"), user_package), func_n2(tok_where));