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

diff --git a/args.h b/args.h
index 23869d30..8634de9e 100644
--- a/args.h
+++ b/args.h
@@ -53,6 +53,11 @@ INLINE struct args *args_init(struct args *args, cnum argc)
   return args_init_list(args, argc, nil);
 }
 
+INLINE void args_set_fill(struct args *args, cnum fill)
+{
+  args->fill = fill;
+}
+
 #define args_decl_list(NAME, N, L)                                      \
   mem_t *NAME ## _mem =                                                 \
     coerce(mem_t *,                                                     \