From 1a3fe1a084fd68ff4f10ef8cf031f347563b79ca Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 28 Aug 2022 12:01:52 -0700 Subject: 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. --- autoload.c | 1 + 1 file changed, 1 insertion(+) (limited to 'autoload.c') 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); -- cgit v1.2.3