summaryrefslogtreecommitdiff
path: root/libguile/objprop.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-08-20 17:09:58 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-08-20 17:09:58 +0000
commit8ba7a00bfe60baef3dbf1ec5d36e5c65c6b674ca (patch)
tree7b707abf397981e8ed6efcc5038d102a26de67aa /libguile/objprop.c
parent6040c774a84b7c37259a166d3aed5b7abb8883d0 (diff)
downloadguile-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.c7
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"
}