* eval.c (eval_init): New instrinsic function iffi registered.

* lib.c (iff): Reversed argument names corrected. No functional
change.
(iffi): New function.

* lib.h (iffi): Declared.

* txr.1: Documented iffi.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 55787074..e22a265c 100644
--- a/lib.h
+++ b/lib.h
@@ -596,6 +596,7 @@ val andv(val funlist);
 val orf(val first_fun, ...);
 val orv(val funlist);
 val iff(val condfun, val thenfun, val elsefun);
+val iffi(val condfun, val thenfun, val elsefun);
 val swap_12_21(val fun);
 val vector(val length);
 val vectorp(val vec);