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

diff --git a/debug.c b/debug.c
index 328cee20..5b79c7ca 100644
--- a/debug.c
+++ b/debug.c
@@ -202,11 +202,11 @@ val debug(val ctx, val bindings, val data, val line, val pos, val base)
           }
 
           if (equal(command, lit("b"))) {
-            breakpoints = remqual(l, breakpoints);
+            breakpoints = remqual(l, breakpoints, nil);
             push(l, &breakpoints);
           } else if (equal(command, lit("d"))) {
             val breakpoints_old = breakpoints;
-            breakpoints = remqual(l, breakpoints);
+            breakpoints = remqual(l, breakpoints, nil);
             if (breakpoints == breakpoints_old)
               format(std_debug, lit("no such breakpoint\n"));
           } else {