From 267c1c96144c983f7c6d4826cb0fede4471c3233 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 7 Jun 2015 19:54:09 -0700
Subject: * stream.c (catenated_stream_p, catenated_stream_push): New
 functions.

* stream.h (catenated_stream_p, catenated_stream_push): Declared.
---
 txr.1 | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

(limited to 'txr.1')

diff --git a/txr.1 b/txr.1
index c9dc6127..1e831090 100644
--- a/txr.1
+++ b/txr.1
@@ -24304,6 +24304,47 @@ and
 .code unget-byte
 operations throw an exception.
 
+.coNP Function @ catenated-stream-p
+.synb
+.mets (catenated-stream-p << obj )
+.syne
+.desc
+The
+.code catenated-stream-p
+function returns
+.code t
+if
+.meta obj
+is a catenated stream. Otherwise it returns
+.codn nil .
+
+.coNP Function @ catenated-stream-push
+.synb
+.mets (catenated-stream-push < new-stream << cat-stream )
+.syne
+.desc
+The
+.code catenated-stream-push
+function pushes
+.meta new-stream
+to the front of the stream list inside
+.metn cat-stream .
+
+If an
+.code unget-byte
+or
+.code unget-char
+operation was successfully performed on
+.meta cat-stream
+previously to a call to
+.codn catenated-stream-push ,
+those operations were forwarded to the front stream.
+If those bytes or characters are still pending,
+they are pending inside that stream, and thus
+are logically preceded by the contents
+of
+.metn new-stream .
+
 .coNP Functions @ open-files and @ open-files*
 .synb
 .mets (open-files < path-list <> [ alternative-stream ])
-- 
cgit v1.2.3