Improving behavior of op and fixing a bug.

Explicitly specifying @rest using (op ... . @rest)
did not work at all.

The then-func agument of iff and iffi may now be nil.

* eval.c (format_op_arg): New static function.
(transform_op): Handle dotted lists ending in @rest
or @<num>.
(supplement_op_syms): New static function.
(expand_op): Add missing numeric arguments,
so that all 1 through n are in the list.
Trailing rest is now added under different
conditions.

* lib.c (do_iff): Give thenfun the same
behavior on nil that elsefun enjoys.

* txr.1: Updated.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 25ecb91d..2b90b60a 100644
--- a/lib.c
+++ b/lib.c
@@ -3375,7 +3375,7 @@ static val do_iff(val env, val args)
   cons_bind (thenfun, elsefun, choices);
 
   return if3(apply(condfun, args, nil),
-             apply(thenfun, args, nil),
+             if2(thenfun, apply(thenfun, args, nil)),
              if2(elsefun, apply(elsefun, args, nil)));
 }