string-finish: new function.

* eval.c (eval_init): Register string-finish intrinsic.

* lib.c (string_finish): New function.

* lib.h (string_finish): Declared.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 74ab1703..def3586d 100644
--- a/eval.c
+++ b/eval.c
@@ -7144,6 +7144,7 @@ void eval_init(void)
   reg_fun(intern(lit("upcase-str"), user_package), func_n1(upcase_str));
   reg_fun(intern(lit("downcase-str"), user_package), func_n1(downcase_str));
   reg_fun(intern(lit("string-extend"), user_package), func_n3o(string_extend, 2));
+  reg_fun(intern(lit("string-finish"), user_package), func_n1(string_finish));
   reg_fun(intern(lit("stringp"), user_package), func_n1(stringp));
   reg_fun(intern(lit("lazy-stringp"), user_package), func_n1(lazy_stringp));
   reg_fun(intern(lit("length-str"), user_package), func_n1(length_str));