mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

* New environment variable scm_system_environment to replace scm_symhash.

Browse source
This commit is contained in:
Dirk Herrmann 2000-12-15 23:21:06 +00:00
parent 9e07b6667f
commit de42a0ee0f
4 changed files with 24 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/environments.c
View file

@ -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);
}