From 3442f8621d0a1a2e581dfbbe1aa72f8bb4ee03ca 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. --- sysif.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'sysif.c') 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); } -- cgit v1.2.3