From 03e6fc5649ab4548fc331a0fe8bb5ed93eb296db Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 12 Mar 2014 22:03:58 -0700
Subject: * lib.c (iffi): Bugfix: was still using incorrect, outdated optional
 argument defaulting logic.

---
 lib.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index e7fa9ff9..885455ed 100644
--- a/lib.c
+++ b/lib.c
@@ -3871,8 +3871,7 @@ val iff(val condfun, val thenfun, val elsefun)
 
 val iffi(val condfun, val thenfun, val elsefun)
 {
-  if (!elsefun)
-    elsefun = identity_f;
+  elsefun = default_arg(elsefun, identity_f);
   return func_f0v(cons(condfun, cons(thenfun, elsefun)), do_iff);
 }
 
-- 
cgit v1.2.3