diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-02-13 10:42:59 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-02-13 10:42:59 +0000 |
commit | 0a4c1355501a17924b3aa4dfed0c8d8121fa378f (patch) | |
tree | 91212b40de75ddaadcb8ab1940008f9cd3993f57 /libguile/weaks.c | |
parent | 87ca11ff19b6932d9672fa323f36a6321d52066b (diff) | |
download | guile-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.c | 6 |
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); |