From e11ce7002975eb2ad785f4bd9ca3f0c95a86a9aa Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 10 Jul 2021 14:58:43 -0700
Subject: 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.
---
 stream.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'stream.h')

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);
-- 
cgit v1.2.3