* eval.c (eval_init): New function interned.

* lib.c:x (lazy_flatten_scan, lazy_flatten_func): New static functions.
(lazy_flatten): New function.

* lib.h (lazy_flatten): Declared.

* match.c (v_next): Use lazy_flatten instead of flatten for
processing a :list source. This means that @(next :list ...)
can be used to process infinite lazy lists.

* txr.1: Documented lazy-flatten.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 4bef95a0..6b3bf0a9 100644
--- a/lib.h
+++ b/lib.h
@@ -333,6 +333,7 @@ val nappend2(val list1, val list2);
 val appendv(val lists);
 val ldiff(val list1, val list2);
 val flatten(val list);
+val lazy_flatten(val list);
 val memq(val obj, val list);
 val memql(val obj, val list);
 val memqual(val obj, val list);