From fc87cf9bfe6bb7a7449bc9619580ca0f717e1df0 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 2 May 2019 07:16:19 -0700 Subject: 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. --- eval.c | 7 +------ 1 file changed, 1 insertion(+), 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) -- cgit v1.2.3