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.

1 files 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;
   }