New functions: long-suffix, short-suffix.

* stream.c (short_suffix, long_suffix): New functions.
(stream_init): short-suffix and long-suffix intrinsics
registered.

* stream.c (short_suffix, long_suffix): Declared.

* tests/018/path.tl: New file.

* txr.1: Documented.

* share/txr/stdlib/doc-syms.tl: Updated.

1 files changed, 2 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index 4c2f6a0e..30971c8c 100644
--- a/stream.h
+++ b/stream.h
@@ -248,6 +248,8 @@ val abs_path_p(val path);
 val pure_rel_path_p(val path);
 val base_name(val path, val suff);
 val dir_name(val path);
+val short_suffix(val name, val alt_in);
+val long_suffix(val name, val alt_in);
 val path_cat(val dir_name, val base_name);
 val make_byte_input_stream(val obj);
 val iobuf_get(void);