New function: iter-cat.

* eval.c (eval_init): Register iter-cat intrinsic.

* lib.h (struct seq_iter): New union member dargs.
(iter_catv): Declared.

* lib.c (seq_iter_get_cat, seq_iter_peek_cat): New
static functions.
(si_cat_ops): New static structure.
(iter_catv): New function.

* tests/012/iter.tl: New tests.

* txr.1: Documented.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 9378ce02..dfa23c6e 100644
--- a/lib.h
+++ b/lib.h
@@ -456,6 +456,7 @@ typedef struct seq_iter {
     val vbound;
     cnum cbound;
     val next;
+    val dargs;
   } ul;
   struct seq_iter_ops *ops;
 } seq_iter_t;
@@ -766,6 +767,7 @@ val iter_more(val iter);
 val iter_item(val iter);
 val iter_step(val iter);
 val iter_reset(val iter, val obj);
+val iter_catv(varg iters);
 void seq_build_init(val self, seq_build_t *bu, val likeobj);
 void seq_add(seq_build_t *bu, val item);
 void seq_pend(seq_build_t *bu, val items);