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

mistake from two commits ago leading to a regression.

1 files changed, 3 insertions, 3 deletions

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)) {