mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* * objprop.c (scm_object_properties, scm_set_object_properties_x):

Browse source 
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.
This commit is contained in:
Mikael Djurfeldt 1996-08-20 17:09:58 +00:00
parent 6040c774a8
commit 8ba7a00bfe
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/objprop.c
View file

@ -58,7 +58,7 @@ scm_object_properties (obj)
SCM obj; SCM obj;
#endif #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; SCM plist;
#endif #endif
{ {
SCM handle; SCM handle = scm_hashq_create_handle_x (scm_object_whash, obj, plist);
scm_hashq_create_handle_x (scm_object_whash, obj, plist);
SCM_SETCDR (handle, plist); SCM_SETCDR (handle, plist);
return plist; return plist;
} }
@ -131,7 +130,7 @@ void
scm_init_objprop () scm_init_objprop ()
#endif #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" #include "objprop.x"
} }