New function: trim-path-seps

* stream.c (trim_path_seps): New function.
(stream_init): trim-path-seps intrinsic registered.

* stream.c (trim_path_seps): Declared.

* tests/018/path.tl: New 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 bb041d60..91fc0ecb 100644
--- a/stream.h
+++ b/stream.h
@@ -263,6 +263,7 @@ val short_suffix(val name, val alt_in);
 val long_suffix(val name, val alt_in);
 val trim_short_suffix(val name);
 val trim_long_suffix(val name);
+val trim_path_seps(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);