summaryrefslogtreecommitdiff
path: root/libguile/environments.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-12-08 13:41:56 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-12-08 13:41:56 +0000
commit93d40df216ff9d8b528d67d20b7867e31ad89827 (patch)
tree7431e3bcb9be96c8884e8b5f988f5131e158d4fd /libguile/environments.c
parent23670993da5437eb5560559b45164eae539f3319 (diff)
downloadguile-93d40df216ff9d8b528d67d20b7867e31ad89827.tar.gz
* Guile does not assume a hash table size of scm_symhash_dim any more.
Diffstat (limited to 'libguile/environments.c')
-rw-r--r--libguile/environments.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/environments.c b/libguile/environments.c
index d577e50ad..8f6910648 100644
--- a/libguile/environments.c
+++ b/libguile/environments.c
@@ -58,6 +58,7 @@
long scm_tc16_environment;
long scm_tc16_observer;
+#define DEFAULT_OBARRAY_SIZE 137
@@ -1036,7 +1037,7 @@ SCM_DEFINE (scm_make_leaf_environment, "make-leaf-environment", 0, 0, 0,
env = scm_make_environment (body);
core_environments_init (&body->base, &leaf_environment_funcs);
- body->obarray = scm_make_vector (SCM_MAKINUM (scm_symhash_dim), SCM_EOL);
+ body->obarray = scm_make_vector (SCM_MAKINUM (DEFAULT_OBARRAY_SIZE), SCM_EOL);
return env;
}
@@ -1428,7 +1429,7 @@ SCM_DEFINE (scm_make_eval_environment, "make-eval-environment", 2, 0, 0,
env = scm_make_environment (body);
core_environments_init (&body->base, &eval_environment_funcs);
- body->obarray = scm_make_vector (SCM_MAKINUM (scm_symhash_dim), SCM_EOL);
+ body->obarray = scm_make_vector (SCM_MAKINUM (DEFAULT_OBARRAY_SIZE), SCM_EOL);
body->imported = imported;
body->imported_observer
= SCM_ENVIRONMENT_OBSERVE (imported, eval_environment_observer, env, 1);