New function: window-mapdo.

* lib.c (enum wmap_op): New enum type.
(window_map_list): Use enum wmap_op for last argument instead
of Boolean flag. If the argument is WMAP_MAPDO, do not
accumulate.
(window_map_vec, window_map, window_mapped): Adjust to new
enum argument.
(window_mapdo): New function.

* lib.h (window_mapdo): Declared.

* eval.c (eval_init): window-mapdo intrinsic registered.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 624c24fa..79137610 100644
--- a/lib.h
+++ b/lib.h
@@ -1055,6 +1055,7 @@ val mappend(val fun, val list);
 val mapdo(val fun, val list);
 val window_map(val range, val boundary, val fun, val seq);
 val window_mappend(val range, val boundary, val fun, val seq);
+val window_mapdo(val range, val boundary, val fun, val seq);
 val interpose(val sep, val seq);
 val merge(val list1, val list2, val lessfun, val keyfun);
 val sort(val seq, val lessfun, val keyfun);