fill-buf-adjust: new function.

* stream.c (fill_buf_adjust): New function.
(stream_init): Register fill-buf-adjust intrinsic.

* stream.h (fill_buf_adjust): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index 449bf90e..37ab89a9 100644
--- a/stream.h
+++ b/stream.h
@@ -188,6 +188,7 @@ val unget_char(val ch, val stream);
 val unget_byte(val byte, val stream);
 val put_buf(val buf, val pos, val stream);
 val fill_buf(val buf, val pos, val stream);
+val fill_buf_adjust(val buf, val pos, val stream);
 val vformat(val stream, val string, va_list);
 val vformat_to_string(val string, va_list);
 val format(val stream, val string, ...);