New function: iterable.

* eval.c (eval_init): Register iterable intrinsic.

* lib.c (seq_iterable): New static function.
(nullify): Use seq_iterable to simplify function.
(iterable): New function.

* lib.h (iterable): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index f0a1c90d..f1e0a53e 100644
--- a/eval.c
+++ b/eval.c
@@ -6942,6 +6942,7 @@ void eval_init(void)
   reg_fun(intern(lit("uni"), user_package), func_n4o(uni, 2));
 
   reg_fun(intern(lit("seqp"), user_package), func_n1(seqp));
+  reg_fun(intern(lit("iterable"), user_package), func_n1(iterable));
   reg_fun(intern(lit("list-seq"), user_package), func_n1(list_seq));
   reg_fun(intern(lit("vec-seq"), user_package), func_n1(vec_seq));
   reg_fun(intern(lit("str-seq"), user_package), func_n1(str_seq));