New function: str

The str function is like mkstring but allows a fill pattern
to be specified.

* eval.c (eval_init): str intrinsic registered.

* lib.[ch[ (str): New function.

* tests/015/str.tl: New file.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 2986935d..4053f8eb 100644
--- a/eval.c
+++ b/eval.c
@@ -7195,6 +7195,7 @@ void eval_init(void)
   reg_fun(intern(lit("keywordp"), user_package), func_n1(keywordp));
   reg_fun(intern(lit("bindable"), user_package), func_n1(bindable));
   reg_fun(intern(lit("mkstring"), user_package), func_n2o(mkstring, 1));
+  reg_fun(intern(lit("str"), user_package), func_n2o(str, 1));
   reg_fun(intern(lit("copy-str"), user_package), func_n1(copy_str));
   reg_fun(intern(lit("upcase-str"), user_package), func_n1(upcase_str));
   reg_fun(intern(lit("downcase-str"), user_package), func_n1(downcase_str));