From c895db6c48ddc8ef5aa7de47b08542eea2d12241 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 20 Dec 2009 13:27:30 +0900
Subject: [PATCH] config env doesn't copy the core env, it just links to it as
 a parent

---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/eval.c b/eval.c
index 6d16a352..3674419f 100644
--- a/eval.c
+++ b/eval.c
@@ -2512,7 +2512,7 @@ sexp sexp_load_standard_env (sexp ctx, sexp e, sexp version) {
       tmp = sexp_make_env(ctx);
       if (! sexp_exceptionp(tmp)) {
         sexp_global(ctx, SEXP_G_CONFIG_ENV) = tmp;
-        sexp_env_copy(ctx, tmp, e, SEXP_FALSE);
+        sexp_env_parent(tmp) = e;
         op = sexp_load_module_file(ctx, sexp_config_file, tmp);
         if (sexp_exceptionp(op))
           sexp_print_exception(ctx, op, sexp_current_error_port(ctx));