From 28c0b2296f8e7e268400911d8fa6bb07a5bc76b3 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 11 Feb 2014 16:26:57 -0800
Subject: * eval.c (if_fun): Bugfix: forgotten handling of optional alternative
 argument.

---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'eval.c')

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