From a767b4b5016005fd3e37126e1437e8cca56b60e1 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 26 Sep 2014 22:54:51 -0700 Subject: * lib.c (do_and): Fix andf again: (andf) not producing a function that returns t, as documented. --- ChangeLog | 5 +++++ lib.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 444a2ce3..d98754ff 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2014-09-26 Kaz Kylheku + + * lib.c (do_and): Fix andf again: (andf) not producing + a function that returns t, as documented. + 2014-09-26 Kaz Kylheku Version 98. diff --git a/lib.c b/lib.c index dfed7700..fbe6743b 100644 --- a/lib.c +++ b/lib.c @@ -4335,7 +4335,7 @@ val juxtv(val funlist) static val do_and(val fun1_list, val args) { fun1_list = nullify(fun1_list); - val ret = nil; + val ret = t; for (; fun1_list; fun1_list = cdr(fun1_list)) if (nilp((ret = apply(car(fun1_list), args, nil)))) -- cgit v1.2.3