From 5a09b244c77dbf498a4bdf7a9381d2741ce87055 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. --- debug.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'debug.c') 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 { -- cgit v1.2.3