From 49133d53e863ddfeeffcb46c7c20575f8c7910c5 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 25 Nov 2015 06:24:03 -0800 Subject: 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 --- args.h | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'args.h') 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 *, \ -- cgit v1.2.3