* lib.c (some_satisfy, all_satisfy, none_satisfy): Fix coding

mistake from two commits ago leading to a regression.

2 files changed, 8 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index ce8a80ae..c04dfc1d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-12  Kaz Kylheku  <kaz@kylheku.com>
+
+	* lib.c (some_satisfy, all_satisfy, none_satisfy): Fix coding
+	mistake from two commits ago leading to a regression.
+
 2014-02-11  Kaz Kylheku  <kaz@kylheku.com>
 
 	* eval.c (eval_init): Register new functions posqual, posql,
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)) {