base-name: optionally remove suffix.

The base-name function now takes a second argument which is
optional, specifying a suffix to be removed. The behavior is
similar to that of the second argument of the POSIX basename
command.

* stream.c (base_name): Second argument added. If present, the
returned value is adjusted by trimming the suffix, unless that
would cause an empty string to be returned.
(stream_init): Update registration of base-name intrinsic.

* stream.h (base_name): Declaration updated.

* txr.1: New base-name parameter documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/stream.h b/stream.h
index bc83122c..9bae897c 100644
--- a/stream.h
+++ b/stream.h
@@ -236,7 +236,7 @@ val remove_path(val path, val throw_on_error);
 val rename_path(val from, val to);
 val abs_path_p(val path);
 val pure_rel_path_p(val path);
-val base_name(val path);
+val base_name(val path, val suff);
 val dir_name(val path);
 val path_cat(val dir_name, val base_name);
 val make_byte_input_stream(val obj);