* eval.c (do_eval_args): If the dotted position of the argument

list evaluates to a vector, then convert the vector to a list.

* txr.1: Document compound forms, and how they allow the dotted
position and how it may be a vector.

1 files changed, 6 insertions, 2 deletions

diff --git a/eval.c b/eval.c
index 5d4b4bcc..94332315 100644
--- a/eval.c
+++ b/eval.c
@@ -428,8 +428,12 @@ static val do_eval_args(val form, val env, val ctx_form,
   list_collect_decl (values, ptail);
   for (; consp(form); form = cdr(form))
     ptail = list_collect(ptail, do_eval(car(form), env, ctx_form, lookup));
-  if (form)
-    ptail = list_collect_append(ptail, do_eval(form, env, ctx_form, lookup));
+  if (form) {
+    val dotpos = do_eval(form, env, ctx_form, lookup);
+    ptail = list_collect_append(ptail, if3(vectorp(dotpos),
+                                           list_vector(dotpos),
+                                           dotpos));
+  }
   return values;
 }