From a674b0a41191d0c85442cfa449cc7b63f09fe457 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 12 Feb 2014 00:09:10 -0800 Subject: * lib.c (some_satisfy, all_satisfy, none_satisfy): Fix coding mistake from two commits ago leading to a regression. --- lib.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib.c') diff --git a/lib.c b/lib.c index 8787cb8f..fbc44315 100644 --- a/lib.c +++ b/lib.c @@ -1038,7 +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); + pred = default_arg(pred, identity_f); key = default_arg(key, identity_f); for (; list; list = cdr(list)) { @@ -1054,7 +1054,7 @@ val all_satisfy(val list, val pred, val key) { val item = t; - pred = default_arg(key, identity_f); + pred = default_arg(pred, identity_f); key = default_arg(key, identity_f); for (; list; list = cdr(list)) { @@ -1067,7 +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); + pred = default_arg(pred, identity_f); key = default_arg(key, identity_f); for (; list; list = cdr(list)) { -- cgit v1.2.3