New macro: close-lazy-streams.

* lib.c (lazy_stream_s): New symbol variable.
(lazy_streams_binding): New static variable.
(lazy_stream_register): New static function
(lazy_stream_cons): If the stream is associated with
a lazy cons, register it with lazy_stream_register.
(obj_init): gc-protect lazy_streams_binding variable.
Intern the sys:*lazy-streams* symbol.

* lib.h (lazy_streams_s): Declared.

* eval.c (eval_init): Register sys:*lazy-streams*
special variable.

* stdlib/getput.tl (close-lazy-streams): New macro.

* autoload.c (getput_set_entries): Trigger autload on
close-lazy-streams symbol.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.

1 files changed, 1 insertions, 0 deletions

diff --git a/autoload.c b/autoload.c
index 66479326..c8db544b 100644
--- a/autoload.c
+++ b/autoload.c
@@ -473,6 +473,7 @@ static val getput_set_entries(val fun)
     lit("command-get-buf"), lit("command-put-buf"),
     lit("command-get-json"), lit("command-put-json"),
     lit("command-get-jsons"), lit("command-put-jsons"),
+    lit("close-lazy-streams"),
     nil
   };
   autoload_set(al_fun, name, fun);