From 15dda4428072bb741d6bf42fa4906b217fc2aeb1 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 11 Feb 2014 16:42:33 -0800 Subject: * eval.c (eval_init): Turn a require argument into an optional one for the functions some, all and none. * lib.c (some_satisfy, all_satisfy, none_satisfy): Add defaulting behavior for pred parameter. * txr.1: Document that the predicate function is optional in calls to some, all and none. --- lib.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lib.c') diff --git a/lib.c b/lib.c index 67784f4d..1b0199c2 100644 --- a/lib.c +++ b/lib.c @@ -1038,6 +1038,7 @@ val count_if(val pred, val list, val key) val some_satisfy(val list, val pred, val key) { + pred = default_arg(key, identity_f); key = default_arg(key, identity_f); for (; list; list = cdr(list)) { @@ -1053,6 +1054,7 @@ val all_satisfy(val list, val pred, val key) { val item = t; + pred = default_arg(key, identity_f); key = default_arg(key, identity_f); for (; list; list = cdr(list)) { @@ -1065,6 +1067,7 @@ val all_satisfy(val list, val pred, val key) val none_satisfy(val list, val pred, val key) { + pred = default_arg(key, identity_f); key = default_arg(key, identity_f); for (; list; list = cdr(list)) { -- cgit v1.2.3