no export current-dynamic-environment

This commit is contained in:
Yuichi Nishiwaki 2014-09-16 00:22:54 +09:00
parent 7db18677ab
commit e698621ca7
1 changed files with 1 additions and 1 deletions

2
var.c
View File

@ -102,7 +102,7 @@ pic_var_make_parameter(pic_state *pic)
void void
pic_init_var(pic_state *pic) 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); pic_defun(pic, "make-parameter", pic_var_make_parameter);