* eval.c (mapcarv): Use mapcar_listout, so list_of_lists can be

a non-list sequence.
(eval_init): Register transpose and zip as intrinsics.

* lib.c (curry_12_1_v): New static function.
(transpose, mapcar_listout): New functions.
(mapcar): Redefined in terms of mapcar_listout.

* lib.h (transpose, mapcar_listout): Declared.

* txr.1: Documented transpose and zip.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 3e792bd7..0ea13787 100644
--- a/lib.h
+++ b/lib.h
@@ -673,6 +673,7 @@ val funcall3(val fun, val arg1, val arg2, val arg3);
 val funcall4(val fun, val arg1, val arg2, val arg3, val arg4);
 val reduce_left(val fun, val list, val init, val key);
 val reduce_right(val fun, val list, val init, val key);
+val transpose(val lists);
 /* The notation curry_12_2 means take some function f(arg1, arg2) and
    fix a value for argument 1 to create a g(arg2).
    Other variations follow by analogy. */
@@ -733,6 +734,7 @@ val alist_nremove(val list, val keys);
 val alist_nremove1(val list, val key);
 val copy_cons(val cons);
 val copy_alist(val list);
+val mapcar_listout(val fun, val list);
 val mapcar(val fun, val list);
 val mapcon(val fun, val list);
 val mappend(val fun, val list);