From 8ba7a00bfe60baef3dbf1ec5d36e5c65c6b674ca Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Tue, 20 Aug 1996 17:09:58 +0000 Subject: [PATCH] * * 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. --- libguile/objprop.c | 7 +++---- 1 file 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" }