diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-20 17:09:58 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-20 17:09:58 +0000 |
commit | 8ba7a00bfe60baef3dbf1ec5d36e5c65c6b674ca (patch) | |
tree | 7b707abf397981e8ed6efcc5038d102a26de67aa /libguile/objprop.c | |
parent | 6040c774a84b7c37259a166d3aed5b7abb8883d0 (diff) | |
download | guile-8ba7a00bfe60baef3dbf1ec5d36e5c65c6b674ca.tar.gz |
* * objprop.c (scm_object_properties, scm_set_object_properties_x):
scm_object_properties shouldn't return handle. `handle' now gets
initialized in scm_set_object_properties_x. scm_object_properties
doesn't any longer create an entry in scm_object_whash.
Diffstat (limited to 'libguile/objprop.c')
-rw-r--r-- | libguile/objprop.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/libguile/objprop.c b/libguile/objprop.c index e97b591ce..981d2d55e 100644 --- a/libguile/objprop.c +++ b/libguile/objprop.c @@ -58,7 +58,7 @@ scm_object_properties (obj) SCM obj; #endif { - return scm_hashq_create_handle_x (scm_object_whash, obj, SCM_EOL); + return scm_hashq_ref (scm_object_whash, obj, SCM_EOL); } @@ -73,8 +73,7 @@ scm_set_object_properties_x (obj, plist) SCM plist; #endif { - SCM handle; - scm_hashq_create_handle_x (scm_object_whash, obj, plist); + SCM handle = scm_hashq_create_handle_x (scm_object_whash, obj, plist); SCM_SETCDR (handle, plist); return plist; } @@ -131,7 +130,7 @@ void scm_init_objprop () #endif { - scm_object_whash = scm_make_weak_hash_table (SCM_MAKINUM (511)); + scm_object_whash = scm_make_weak_key_hash_table (SCM_MAKINUM (511)); #include "objprop.x" } |