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

diff --git a/sysif.c b/sysif.c
index 5c9f583b..c3d86fb5 100644
--- a/sysif.c
+++ b/sysif.c
@@ -149,7 +149,7 @@ val at_exit_call(val func)
 val at_exit_do_not_call(val func)
 {
   val old = at_exit_list;
-  at_exit_list = remq(func, old);
+  at_exit_list = remq(func, old, nil);
   return tnil(old == at_exit_list);
 }