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, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 69dc238b..0bcbd469 100644
--- a/eval.c
+++ b/eval.c
@@ -7486,6 +7486,8 @@ void eval_init(void)
 
   reg_fun(intern(lit("rt-assert-fail"), system_package), func_n4ov(rt_assert_fail, 3));
 
+  reg_var(lazy_streams_s, nil);
+
   eval_error_s = intern(lit("eval-error"), user_package);
   case_error_s = intern(lit("case-error"), user_package);
   uw_register_subtype(eval_error_s, error_s);