diff options
-rw-r--r-- | ChangeLog | 5 | ||||
-rw-r--r-- | lib.c | 6 |
2 files changed, 8 insertions, 3 deletions
@@ -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, @@ -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)) { |