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

(scm_struct_vtable_p): Do not check vcell slot for zero. Use

Browse source 
scm_vtable_index_layout instead of "0" when accessing said slot.
(scm_init_struct): Remove vcell slot layout code from
required_vtable_fields.
This commit is contained in:
Marius Vollmer 2001-07-29 20:42:06 +00:00
parent 7866776ca0
commit 6902384eb9
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/struct.c
View file

@ -270,10 +270,7 @@ SCM_DEFINE (scm_struct_vtable_p, "struct-vtable?", 1, 0, 0,
mem = SCM_STRUCT_DATA (x);
if (mem[1] != 0)
return SCM_BOOL_F;
return SCM_BOOL (SCM_SYMBOLP (SCM_PACK (mem[0])));
return SCM_BOOL (SCM_SYMBOLP (SCM_PACK (mem[scm_vtable_index_layout])));
}
#undef FUNC_NAME
@ -823,7 +820,7 @@ scm_init_struct ()
{
scm_struct_table
= scm_permanent_object (scm_make_weak_key_hash_table (SCM_MAKINUM (31)));
required_vtable_fields = scm_makfrom0str ("pruosrpw");
required_vtable_fields = scm_makfrom0str ("prsrpw");
scm_permanent_object (required_vtable_fields);
scm_c_define ("vtable-index-layout", SCM_MAKINUM (scm_vtable_index_layout));
scm_c_define ("vtable-index-vtable", SCM_MAKINUM (scm_vtable_index_vtable));