diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-20 17:12:43 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-20 17:12:43 +0000 |
| commit | 8d71b0ce987192a494aba4e8e8b653f2bbacf1fb (patch) | |
| tree | 80c6b995c7d9dad831bbcc7b22122040015ebb3a /libguile/weaks.c | |
| parent | e137c6b3e3bcf8d41a7c7d78e2acaa778357b758 (diff) | |
| download | guile-8d71b0ce987192a494aba4e8e8b653f2bbacf1fb.tar.gz | |
*** empty log message ***
Diffstat (limited to 'libguile/weaks.c')
| -rw-r--r-- | libguile/weaks.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/weaks.c b/libguile/weaks.c index 8479d76f5..ff0926599 100644 --- a/libguile/weaks.c +++ b/libguile/weaks.c @@ -119,18 +119,18 @@ scm_weak_vector_p (x) -SCM_PROC(s_make_weak_hash_table, "make-weak-hash-table", 1, 0, 0, scm_make_weak_hash_table); +SCM_PROC(s_make_weak_key_hash_table, "make-weak-key-hash-table", 1, 0, 0, scm_make_weak_key_hash_table); #ifdef __STDC__ SCM -scm_make_weak_hash_table (SCM k) +scm_make_weak_key_hash_table (SCM k) #else SCM -scm_make_weak_hash_table (k) +scm_make_weak_key_hash_table (k) SCM k; #endif { SCM v; - SCM_ASSERT (SCM_INUMP (k), k, SCM_ARG1, s_make_weak_hash_table); + SCM_ASSERT (SCM_INUMP (k), k, SCM_ARG1, s_make_weak_key_hash_table); v = scm_make_weak_vector (k, SCM_EOL); SCM_ALLOW_INTS; SCM_VELTS (v)[-1] = 1; @@ -171,7 +171,7 @@ scm_make_doubly_weak_hash_table (k) #endif { SCM v; - SCM_ASSERT (SCM_INUMP (k), k, SCM_ARG1, s_make_weak_value_hash_table); + SCM_ASSERT (SCM_INUMP (k), k, SCM_ARG1, s_make_doubly_weak_hash_table); v = scm_make_weak_vector (k, SCM_EOL); SCM_ALLOW_INTS; SCM_VELTS (v)[-1] = 3; @@ -179,13 +179,13 @@ scm_make_doubly_weak_hash_table (k) return v; } -SCM_PROC(s_weak_hash_table_p, "weak-hash-table?", 1, 0, 0, scm_weak_hash_table_p); +SCM_PROC(s_weak_key_hash_table_p, "weak-key-hash-table?", 1, 0, 0, scm_weak_key_hash_table_p); #ifdef __STDC__ SCM -scm_weak_hash_table_p (SCM x) +scm_weak_key_hash_table_p (SCM x) #else SCM -scm_weak_hash_table_p (x) +scm_weak_key_hash_table_p (x) SCM x; #endif { |