Bugfix: ret operator does not generate functions

that take any number of arguments.

* eval.c (me_ret): Generate (op identity (progn @rest <expr>))
rather than of (op identity <expr>).

* txr.1: Update misleading equivalence.

1 files changed, 3 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index c66ddbef..d9f1c51d 100644
--- a/eval.c
+++ b/eval.c
@@ -2539,7 +2539,9 @@ static val me_ido(val form, val menv)
 
 static val me_ret(val form, val menv)
 {
-  return cons(op_s, cons(identity_s, rest(form)));
+  return list(op_s, identity_s, cons(progn_s,
+                                     cons(list(var_s, rest_s, nao),
+                                          rest(form))), nao);
 }
 
 static val me_flet_labels(val form, val menv)