From e9ebac341d45521b4558a4d198129484ef094a8e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 10 Feb 2017 16:39:41 -0800 Subject: consistency: treat members of struct env in order. * eval.c (make_env, copy_env): Assign to vbindings, then to fbindings. The members are in that order and elsewhere, wherever we treat both bindings, we treat the variables first. --- eval.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/eval.c b/eval.c index a8622d69..a5f3da58 100644 --- a/eval.c +++ b/eval.c @@ -115,8 +115,8 @@ val make_env(val vbindings, val fbindings, val up_env) { val env = make_obj(); env->e.type = ENV; - env->e.fbindings = fbindings; env->e.vbindings = vbindings; + env->e.fbindings = fbindings; env->e.up_env = up_env; return env; } @@ -129,8 +129,8 @@ val copy_env(val oenv) val nenv = make_obj(); nenv->e.type = ENV; - nenv->e.fbindings = copy_alist(oenv->e.fbindings); nenv->e.vbindings = copy_alist(oenv->e.vbindings); + nenv->e.fbindings = copy_alist(oenv->e.fbindings); nenv->e.up_env = oenv->e.up_env; return nenv; } -- cgit v1.2.3