interpreter: don't bother with dot position.

* eval.c (do_eval_args): Since function call expressions all
undergo the dot-to-apply transform, there is no need
look for a form in the dot position.

1 files changed, 1 insertions, 6 deletions

diff --git a/eval.c b/eval.c
index a3574383..2daaceb6 100644
--- a/eval.c
+++ b/eval.c
@@ -1401,13 +1401,8 @@ static void do_eval_args(val form, val env, val ctx,
                          val (*lookup)(val env, val sym),
                          struct args *args)
 {
-  for (; consp(form); form = cdr(form))
+  for (; form; form = cdr(form))
     args_add(args, do_eval(car(form), env, ctx, lookup));
-
-  if (form) {
-    val dotpos = do_eval(form, env, ctx, lookup);
-    args_add_list(args, if3(listp(dotpos), dotpos, tolist(dotpos)));
-  }
 }
 
 val set_dyn_env(val de)