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/eval.c b/eval.c
index b1bb0d17..e0880962 100644
--- a/eval.c
+++ b/eval.c
@@ -4446,6 +4446,8 @@ void eval_init(void)
   reg_fun(intern(lit("mappend"), user_package), func_n1v(mappendv));
   reg_fun(intern(lit("mappend*"), user_package), func_n1v(lazy_mappendv));
   reg_fun(intern(lit("mapdo"), user_package), func_n1v(mapdov));
+  reg_fun(intern(lit("window-map"), user_package), func_n4(window_map));
+  reg_fun(intern(lit("window-mappend"), user_package), func_n4(window_mappend));
   reg_fun(apply_s, func_n1v(applyv));
   reg_fun(iapply_s, func_n1v(iapply));
   reg_fun(call_s, call_f);