* eval.c (mapdov): New function.

(eval_init): Register mapdo intrinsic.

* lib.c (mapdo): New function.

* lib.h (mapdo): Declared.

* txr.1: Documented mapdo.  Documented zero-argument case
for mapcar, mapcar*, mappend and mappend*.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 27b5c544..30931b4b 100644
--- a/lib.h
+++ b/lib.h
@@ -743,6 +743,7 @@ 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);
+val mapdo(val fun, val list);
 val interpose(val sep, val seq);
 val merge(val list1, val list2, val lessfun, val keyfun);
 val sort(val seq, val lessfun, val keyfun);