summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--eval.c7
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)