summaryrefslogtreecommitdiff
path: root/libguile/weaks.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2003-02-13 10:42:59 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2003-02-13 10:42:59 +0000
commit0a4c1355501a17924b3aa4dfed0c8d8121fa378f (patch)
tree91212b40de75ddaadcb8ab1940008f9cd3993f57 /libguile/weaks.c
parent87ca11ff19b6932d9672fa323f36a6321d52066b (diff)
downloadguile-0a4c1355501a17924b3aa4dfed0c8d8121fa378f.tar.gz
* hashtab.c: Undid thread safety. (We decided that it's better to
let the user explicitly protect the tables (or not) according what is suitable for the application.)
Diffstat (limited to 'libguile/weaks.c')
-rw-r--r--libguile/weaks.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/weaks.c b/libguile/weaks.c
index db8af4ab3..7f02d3c68 100644
--- a/libguile/weaks.c
+++ b/libguile/weaks.c
@@ -183,7 +183,7 @@ SCM_DEFINE (scm_make_weak_key_hash_table, "make-weak-key-hash-table", 0, 1, 0,
#define FUNC_NAME s_scm_make_weak_key_hash_table
{
if (SCM_UNBNDP (size))
- return scm_vector_to_hash_table (allocate_weak_vector (1, SCM_MAKINUM (37),
+ return scm_vector_to_hash_table (allocate_weak_vector (1, SCM_MAKINUM (31),
SCM_EOL, FUNC_NAME));
else
return allocate_weak_vector (1, size, SCM_EOL, FUNC_NAME);
@@ -198,7 +198,7 @@ SCM_DEFINE (scm_make_weak_value_hash_table, "make-weak-value-hash-table", 0, 1,
#define FUNC_NAME s_scm_make_weak_value_hash_table
{
if (SCM_UNBNDP (size))
- return scm_vector_to_hash_table (allocate_weak_vector (2, SCM_MAKINUM (37),
+ return scm_vector_to_hash_table (allocate_weak_vector (2, SCM_MAKINUM (31),
SCM_EOL, FUNC_NAME));
else
return allocate_weak_vector (2, size, SCM_EOL, FUNC_NAME);
@@ -213,7 +213,7 @@ SCM_DEFINE (scm_make_doubly_weak_hash_table, "make-doubly-weak-hash-table", 1, 0
#define FUNC_NAME s_scm_make_doubly_weak_hash_table
{
if (SCM_UNBNDP (size))
- return scm_vector_to_hash_table (allocate_weak_vector (3, SCM_MAKINUM (37),
+ return scm_vector_to_hash_table (allocate_weak_vector (3, SCM_MAKINUM (31),
SCM_EOL, FUNC_NAME));
else
return allocate_weak_vector (3, size, SCM_EOL, FUNC_NAME);