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.

1 files changed, 4 insertions, 4 deletions

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));