New function: add-suffix.

* stream.c, stream.h (add_suffix): New function.
(stream_init): add-suffix intrinsic registered.

* tests/018/path.tl: Tests.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.

1 files changed, 1 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index 07c2bb80..e705c694 100644
--- a/stream.h
+++ b/stream.h
@@ -259,6 +259,7 @@ val long_suffix(val name, val alt_in);
 val trim_short_suffix(val name);
 val trim_long_suffix(val name);
 val path_cat(val dir_name, val base_name);
+val add_suffix(val name, val suffix);
 val make_byte_input_stream(val obj);
 val iobuf_get(void);
 void iobuf_put(val buf);