summaryrefslogtreecommitdiff
path: root/libguile/environments.c
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-02-02 04:56:25 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-02-02 04:56:25 +0000
commit00ffa0e7d666ed7d7b4f7a63c95de69d18e2bee8 (patch)
treed779edbe115e20363242e8cacec89ae6e596560b /libguile/environments.c
parentb8446ce883e7155def42f479a39b6a870b318720 (diff)
downloadguile-00ffa0e7d666ed7d7b4f7a63c95de69d18e2bee8.tar.gz
New functions: scm_c_make_vector, scm_c_make_hash_table.
Diffstat (limited to 'libguile/environments.c')
-rw-r--r--libguile/environments.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/environments.c b/libguile/environments.c
index 8e42afa58..710d29ad1 100644
--- a/libguile/environments.c
+++ b/libguile/environments.c
@@ -1032,7 +1032,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 (DEFAULT_OBARRAY_SIZE), SCM_EOL);
+ body->obarray = scm_c_make_hash_table (DEFAULT_OBARRAY_SIZE);
return env;
}
@@ -1424,7 +1424,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 (DEFAULT_OBARRAY_SIZE), SCM_EOL);
+ body->obarray = scm_c_make_hash_table (DEFAULT_OBARRAY_SIZE);
body->imported = imported;
body->imported_observer
= SCM_ENVIRONMENT_OBSERVE (imported, eval_environment_observer, env, 1);