summaryrefslogtreecommitdiff
path: root/libguile/environments.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-12-15 23:21:06 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-12-15 23:21:06 +0000
commitde42a0ee0fc8dcb915e2009893b686c766715dc4 (patch)
tree08e78d5370ce89fea15ced6638400d6254c7160c /libguile/environments.c
parent9e07b6667f52d48e24ff585fa0226bba93e73361 (diff)
downloadguile-de42a0ee0fc8dcb915e2009893b686c766715dc4.tar.gz
* New environment variable scm_system_environment to replace scm_symhash.
Diffstat (limited to 'libguile/environments.c')
-rw-r--r--libguile/environments.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/environments.c b/libguile/environments.c
index 85fbea5d5..8e42afa58 100644
--- a/libguile/environments.c
+++ b/libguile/environments.c
@@ -60,6 +60,8 @@ scm_bits_t scm_tc16_environment;
scm_bits_t scm_tc16_observer;
#define DEFAULT_OBARRAY_SIZE 137
+SCM scm_system_environment;
+
/* error conditions */
@@ -2304,6 +2306,10 @@ scm_environments_prehistory ()
scm_tc16_observer = scm_make_smob_type ("observer", 0);
scm_set_smob_mark (scm_tc16_observer, observer_mark);
scm_set_smob_print (scm_tc16_observer, observer_print);
+
+ /* create system environment */
+ scm_system_environment = scm_make_leaf_environment ();
+ scm_permanent_object (scm_system_environment);
}