* 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, 10 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 9289250a..0f705211 100644
--- a/lib.c
+++ b/lib.c
@@ -4979,6 +4979,16 @@ val mappend(val fun, val list)
   return make_like(out, list_orig);
 }
 
+val mapdo(val fun, val list)
+{
+  list = nullify(list);
+
+  for (; list; list = cdr(list))
+    funcall1(fun, car(list));
+
+  return nil;
+}
+
 static val lazy_interpose_func(val env, val lcons)
 {
   cons_bind (sep, list, env);