mkstring char argument is optional.

* eval.c (eval_init): Update registration of mkstring intrinsic
to make second argument optional.

* lib.c (mkstring): Default second argument to space.

* txr.1: Documentation of mkstring updated.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 187273c5..d1c3cc8c 100644
--- a/eval.c
+++ b/eval.c
@@ -5927,7 +5927,7 @@ void eval_init(void)
   reg_fun(intern(lit("packagep"), user_package), func_n1(packagep));
   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_n2(mkstring));
+  reg_fun(intern(lit("mkstring"), user_package), func_n2o(mkstring, 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));