From 28c0b2296f8e7e268400911d8fa6bb07a5bc76b3 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 11 Feb 2014 16:26:57 -0800 Subject: * eval.c (if_fun): Bugfix: forgotten handling of optional alternative argument. --- ChangeLog | 5 +++++ eval.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index fd14c2e9..4ae13197 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2014-02-11 Kaz Kylheku + + * eval.c (if_fun): Bugfix: forgotten handling of optional + alternative argument. + 2014-02-11 Kaz Kylheku * eval.c (subst_vars): Bugfix: results of expressions not diff --git a/eval.c b/eval.c index d97f0cfd..eff15bb1 100644 --- a/eval.c +++ b/eval.c @@ -2226,7 +2226,7 @@ static void reg_var(val sym, val *loc) static val if_fun(val cond, val then, val alt) { - return if3(cond, then, alt); + return if3(cond, then, default_bool_arg(alt)); } static val or_fun(val vals) -- cgit v1.2.3