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 --- lib.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib.h') 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); -- cgit v1.2.3