* lib.c (iffi): Bugfix: was still using incorrect, outdated optional

argument defaulting logic.

1 files changed, 1 insertions, 2 deletions

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);
 }