* stream.c (get_string): New argument, close_after_p.

Close the stream unless close_after_p is specified and is nil,
or when it is missing, an there is no compatibility or it's
newer than version 102.

* stream.h (get_string): Updated declartion.

* txr.1: Documented default closing behavior of get-string
and the new optional argument for overriding it.

1 files changed, 1 insertions, 1 deletions

diff --git a/stream.h b/stream.h
index 0f28c57c..3b01dee2 100644
--- a/stream.h
+++ b/stream.h
@@ -96,7 +96,7 @@ val put_strings(val strings, val stream);
 val put_lines(val lines, val stream);
 val flush_stream(val stream);
 val seek_stream(val stream, val offset, val whence);
-val get_string(val stream, val nchars);
+val get_string(val stream, val nchars, val close_after_p);
 val statf(val path);
 val open_directory(val path);
 val open_file(val path, val mode_str);