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, 3 insertions, 3 deletions

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