From a1c7cc2f9faf4463722e78f24b9433dc9cf0bbf7 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 17 Jan 2016 19:54:22 -0800 Subject: New function, split*. * eval.c (eval_init): Register split*. * lib.c (split_star_func): New static function. (partition_split_common): Take pointer-to-function argument instead of boolean. Hoist this C function into the lazy cons. (partition): Pass pointer to partition_func ito partition_split_common, intsead of a flag requesting the use of partition_func. (split): Pass apointer to split_func into partition_split_common. (split_star): New function. * lib.h (split_star): Declared. * txr.1: Documented split*. --- lib.h | 1 + 1 file changed, 1 insertion(+) (limited to 'lib.h') diff --git a/lib.h b/lib.h index c07bc863..8b2b700d 100644 --- a/lib.h +++ b/lib.h @@ -530,6 +530,7 @@ val partition_by(val func, val seq); val partition(val seq, val indices); val split(val seq, val indices); val partition_star(val seq, val indices); +val split_star(val seq, val indices); val memq(val obj, val list); val memql(val obj, val list); val memqual(val obj, val list); -- cgit v1.2.3