From ca824ebb1c3dcf616c0ba89a0c96ca47f2221299 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 20 Dec 2016 15:56:38 -0800 Subject: Remove more vestiges of old specials handling. * eval.c (struct bindings_helper_vars): Remove de member. (copy_bh_env_handler): Remove copying of dynamic environment. (bindings_helper): Remove all code dealing with de. The sequential binding will no longer introduce a dynamic environment. --- eval.c | 6 ------ 1 file changed, 6 deletions(-) diff --git a/eval.c b/eval.c index 13415a3f..ddf3b944 100644 --- a/eval.c +++ b/eval.c @@ -1314,15 +1314,12 @@ static val op_unquote_error(val form, val env) } struct bindings_helper_vars { - val de; val ne; }; static void copy_bh_env_handler(mem_t *ptr, int parent) { struct bindings_helper_vars *pv = coerce(struct bindings_helper_vars *, ptr); - if (pv->de) - pv->de = copy_env(pv->de); pv->ne = copy_env(pv->ne); } @@ -1334,7 +1331,6 @@ static val bindings_helper(val vars, val env, val sequential, struct bindings_helper_vars v; list_collect_decl (new_bindings, ptail); uw_frame_t uw_cc; - v.de = if3(sequential, dyn_env, nil); v.ne = if3(sequential, env, make_env(nil, nil, env)); uw_push_cont_copy(&uw_cc, coerce(mem_t *, &v), copy_bh_env_handler); @@ -1362,8 +1358,6 @@ static val bindings_helper(val vars, val env, val sequential, } } - if (v.de && v.de != dyn_env) - dyn_env = v.de; if (env_out) *env_out = v.ne; -- cgit v1.2.3