New functions window-map and window-mappend.

* args.h (args_set_fill): New inline function.

* eval.c (eval_init): Register window-map and window-mappend
intrinics.

* lib.c (wrap_k, reflect_k): New keyword variables.
(calc_win_size): New static function.
(window_map_list, window_map_vec): New static functions.
(window_map, window_mappend): New functions.
(obj_init): Initialize wrap_k and reflect_k.

* lib.h (window_map, window_mappend): Declared.

* txr.1: Documented window-map and window-mappend

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 7b33c784..80412c29 100644
--- a/lib.h
+++ b/lib.h
@@ -875,6 +875,8 @@ 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 window_map(val range, val boundary, val fun, val seq);
+val window_mappend(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);