From 5a09b244c77dbf498a4bdf7a9381d2741ce87055 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 15 Sep 2016 06:48:11 -0700 Subject: key function argument on remq, remql and remqual. * eval.c (weave_while): Pass third arg to remq as nil. (eval_init): Update registrations of remq, remql and remqual. * lib.c (remq, remql, remqual): Implement key function argument. * lib.h (remq, remql, remqual): Declarations updated. * sysif.c (at_exit_call): Pass third arg to remq as nil. * debug.c (debug): Pass third argument to remqual as nil. * txr.1: Documentation updated. --- lib.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib.h') diff --git a/lib.h b/lib.h index f17def75..179c0c66 100644 --- a/lib.h +++ b/lib.h @@ -550,9 +550,9 @@ val member(val item, val list, val testfun, val keyfun); val rmember(val item, val list, val testfun, val keyfun); val member_if(val pred, val list, val key); val rmember_if(val pred, val list, val key); -val remq(val obj, val list); -val remql(val obj, val list); -val remqual(val obj, val list); +val remq(val obj, val list, val keyfun); +val remql(val obj, val list, val keyfun); +val remqual(val obj, val list, val keyfun); val remove_if(val pred, val list, val key); val keepq(val obj, val list_orig, val key); val keepql(val obj, val list_orig, val key); -- cgit v1.2.3