* eval.c (eval_init): register tuples as intrinsic.

* lib.c (tuples_func): New static function.
(tuples): New function.

* lib.h (tuples): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 548a0696..1f25f623 100644
--- a/lib.h
+++ b/lib.h
@@ -441,6 +441,7 @@ val lazy_appendv(val lists);
 val ldiff(val list1, val list2);
 val flatten(val list);
 val lazy_flatten(val list);
+val tuples(val n, val seq, val fill);
 val memq(val obj, val list);
 val memql(val obj, val list);
 val memqual(val obj, val list);