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/lib.h b/lib.h
index 4c6993e6..19cedbf8 100644
--- a/lib.h
+++ b/lib.h
@@ -885,6 +885,7 @@ val copy_str(val str);
 val upcase_str(val str);
 val downcase_str(val str);
 val string_extend(val str, val tail, val finish);
+val string_finish(val str);
 val stringp(val str);
 val lazy_stringp(val str);
 val length_str(val str);