From e698621ca7d70fcbd3b0305215bf4512e01941c5 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 16 Sep 2014 00:22:54 +0900
Subject: [PATCH] no export current-dynamic-environment

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

diff --git a/var.c b/var.c
index 20b12995..ce74d104 100644
--- a/var.c
+++ b/var.c
@@ -102,7 +102,7 @@ pic_var_make_parameter(pic_state *pic)
 void
 pic_init_var(pic_state *pic)
 {
-  pic_define(pic, "current-dynamic-environment", pic_false_value());
+  pic_define_noexport(pic, "current-dynamic-environment", pic_false_value());
 
   pic_defun(pic, "make-parameter", pic_var_make_parameter);