* 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, 1 deletions

diff --git a/match.c b/match.c
index 7556494f..715bf112 100644
--- a/match.c
+++ b/match.c
@@ -1974,7 +1974,7 @@ static val v_next(match_files_ctx *c)
         {
           cons_bind (new_bindings, success,
                      match_files(mf_file_data(*c, lit("var"),
-                                 flatten(cdr(existing)), num(1))));
+                                 lazy_flatten(cdr(existing)), num(1))));
 
           if (success)
             return cons(new_bindings,