From 843db24e847619b35baeeb7cf88991ad48427bb6 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 25 Sep 2014 21:32:57 -0700 Subject: * lib.c (do_and, do_or): Fix broken andf and orf, lacking the semantics of returning the last value, or the first true value, respectively. --- lib.c | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'lib.c') diff --git a/lib.c b/lib.c index c8298468..dfed7700 100644 --- a/lib.c +++ b/lib.c @@ -4335,12 +4335,13 @@ val juxtv(val funlist) static val do_and(val fun1_list, val args) { fun1_list = nullify(fun1_list); + val ret = nil; for (; fun1_list; fun1_list = cdr(fun1_list)) - if (nilp(apply(car(fun1_list), args, nil))) - return nil; + if (nilp((ret = apply(car(fun1_list), args, nil)))) + break; - return t; + return ret; } val andf(val first_fun, ...) @@ -4380,12 +4381,13 @@ val swap_12_21(val fun) static val do_or(val fun1_list, val args) { fun1_list = nullify(fun1_list); + val ret = nil; for (; fun1_list; fun1_list = cdr(fun1_list)) - if (apply(car(fun1_list), args, nil)) - return t; + if ((ret = apply(car(fun1_list), args, nil))) + break; - return nil; + return ret; } val orf(val first_fun, ...) -- cgit v1.2.3