summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c4
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;
}