lazy-stream-cons: control close throwing behavior.

* eval.c (eval_init): Update registrations of lazy-stream-cons
and get-lines with one more optional argument.

* lib.c (simple_lazy_stream_func_nt, lazy_stream_func_nt): New
static functions.
(lazy_stream_cons): Take a new argument, no_throw_close,
defaulting it to nil. When calling close_stream directly, pass
the inverted value of no_throw_close. Choose the new _nt
functions for the lazy list if no_throw_close is true; those
functions pass nil as the second argument of close_stream.

* lib.h (lazy_stream_cons): Declaration updated.

* match.c (v_next_impl, open_data_source, match_fun): Pass
down the nothrow value to lazy_stream_cons, or else nil in
situations when that is not applicable or there is no such
value. Thus the :nothrow feature of v_next will now not only
ensure that there is no exception when opening the stream but
also when closing it. Unusual situations encountered when
the lazy list reads from the stream still throw.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.h b/lib.h
index e3b89087..5fdf9bde 100644
--- a/lib.h
+++ b/lib.h
@@ -1089,7 +1089,7 @@ val replace_vec(val vec_in, val items, val from, val to);
 val replace_obj(val obj, val items, val from, val to);
 val fill_vec(val vec, val item, val from_in, val to_in);
 val cat_vec(val list);
-val lazy_stream_cons(val stream);
+val lazy_stream_cons(val stream, val no_throw_close);
 val lazy_str(val list, val term, val limit);
 val lazy_str_force_upto(val lstr, val index);
 val lazy_str_force(val lstr);