From 3442f8621d0a1a2e581dfbbe1aa72f8bb4ee03ca 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. --- eval.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index a1809aca..754e27bf 100644 --- a/eval.c +++ b/eval.c @@ -4414,7 +4414,7 @@ static val weave_while(val env) if (!tuples) return nil; - tuple = remq(uniq, car(tuples)); + tuple = remq(uniq, car(tuples), nil); if (!tuple) return nil; @@ -5021,9 +5021,9 @@ void eval_init(void) reg_fun(intern(lit("rmember"), user_package), func_n4o(rmember, 2)); reg_fun(intern(lit("member-if"), user_package), func_n3o(member_if, 2)); reg_fun(intern(lit("rmember-if"), user_package), func_n3o(rmember_if, 2)); - reg_fun(intern(lit("remq"), user_package), func_n2(remq)); - reg_fun(intern(lit("remql"), user_package), func_n2(remql)); - reg_fun(intern(lit("remqual"), user_package), func_n2(remqual)); + reg_fun(intern(lit("remq"), user_package), func_n3o(remq, 2)); + reg_fun(intern(lit("remql"), user_package), func_n3o(remql, 2)); + reg_fun(intern(lit("remqual"), user_package), func_n3o(remqual, 2)); reg_fun(intern(lit("remove-if"), user_package), func_n3o(remove_if, 2)); reg_fun(intern(lit("keepq"), user_package), func_n3o(keepq, 2)); reg_fun(intern(lit("keepql"), user_package), func_n3o(keepql, 2)); -- cgit v1.2.3