* stream.c (catenated_stream_p, catenated_stream_push): New functions.

* stream.h (catenated_stream_p, catenated_stream_push): Declared.

1 files changed, 2 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index 910cdaec..ed947577 100644
--- a/stream.h
+++ b/stream.h
@@ -122,6 +122,8 @@ val open_tail(val path, val mode_str, val seek_end_p);
 val open_command(val path, val mode_str);
 val open_process(val path, val mode_str, val args);
 val make_catenated_stream(val stream_list);
+val catenated_stream_p(val obj);
+val catenated_stream_push(val new_stream, val cat_stream);
 val remove_path(val path);
 val rename_path(val from, val to);
 val abs_path_p(val path);