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, 4 insertions, 1 deletions

diff --git a/txr.1 b/txr.1
index 0d9779d8..b178b42f 100644
--- a/txr.1
+++ b/txr.1
@@ -12504,7 +12504,10 @@ and returns the value specified by <form>.
 
 The following equivalence holds:
 
-  (ret x) <--> (op identity x)
+  (ret x) <--> (op identity (progn @rest x))
+
+where the @rest parameter is mentioned for its side effect of making
+op generate a function which accepts any number of arguments.
 
 The expression (ret @2) returns a function similar to
 (lambda (x y . z) y).