lib: new functions join, join-with.

That old cat-str function is often a pain, requiring the
pieces as a list. We have a sys:fmt-join that is undocumented.
That functions is now exposed as usr:join, and documented.
Also introducing join-with that takes a separator as the
leftmost argument. Thus (op join-with "::") gives us
a function that joins pieces with :: in between.

* eval.c (eval_init): Regiser fmt_join function under join
symbol also. Register join-with.

* lib.c (join_with): New function.
(fmt_join): Now a wrapper for join_with that passes a nil
separator.

* lib.h (join_with): Declared.

* share/txr/stdlib/optimize.tl (basic-blocks join-blocks):
Rename the local function join, which now triggers a warning
about a standard function being redefined.

* txr.1: Redocumented cat-str, and documented join-with
and join.

1 files changed, 6 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 9591aea9..1b603ce1 100644
--- a/eval.c
+++ b/eval.c
@@ -6798,7 +6798,12 @@ void eval_init(void)
 
   reg_fun(intern(lit("fmt-simple"), system_package), func_n5o(fmt_simple, 1));
   reg_fun(intern(lit("fmt-flex"), system_package), func_n2v(fmt_flex));
-  reg_fun(intern(lit("fmt-join"), system_package), func_n0v(fmt_join));
+  {
+    val join_f = func_n0v(fmt_join);
+    reg_fun(intern(lit("fmt-join"), system_package), join_f);
+    reg_fun(intern(lit("join"), user_package), join_f);
+  }
+  reg_fun(intern(lit("join-with"), user_package), func_n1v(join_with));
 
   reg_varl(user_package_s = intern(lit("user-package"), user_package), user_package);
   reg_varl(system_package_s = intern(lit("system-package"), user_package), system_package);