summaryrefslogtreecommitdiff
path: root/libguile/objects.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-12 01:19:49 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-12 01:19:49 +0000
commitd8c40b9f49836a0d8c28b49ff5346033c50e113d (patch)
tree35920f5d7debfed249a1e01ba3eebf8d9dc1bbc3 /libguile/objects.c
parent1c3e63f06d87913b08ced09d0db6196a2fde8143 (diff)
downloadguile-d8c40b9f49836a0d8c28b49ff5346033c50e113d.tar.gz
The struct data is now an array of scm_bits_t variables.
Diffstat (limited to 'libguile/objects.c')
-rw-r--r--libguile/objects.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/objects.c b/libguile/objects.c
index d1473d3bb..03330eb4f 100644
--- a/libguile/objects.c
+++ b/libguile/objects.c
@@ -276,8 +276,8 @@ scm_mcache_lookup_cmethod (SCM cache, SCM args)
if (SCM_NIMP (ls))
do
{
- i += SCM_UNPACK (SCM_STRUCT_DATA (scm_class_of (SCM_CAR (ls)))
- [scm_si_hashsets + hashset]);
+ i += SCM_STRUCT_DATA (scm_class_of (SCM_CAR (ls)))
+ [scm_si_hashsets + hashset];
ls = SCM_CDR (ls);
}
while (--j && SCM_NIMP (ls));
@@ -390,7 +390,7 @@ SCM_DEFINE (scm_set_object_procedure_x, "set-object-procedure!", 2, 0, 0,
FUNC_NAME);
SCM_VALIDATE_PROC (2,proc);
if (SCM_I_ENTITYP (obj))
- SCM_ENTITY_PROCEDURE (obj) = proc;
+ SCM_SET_ENTITY_PROCEDURE (obj, proc);
else
SCM_OPERATOR_CLASS (obj)->procedure = proc;
return SCM_UNSPECIFIED;
@@ -455,7 +455,7 @@ SCM_DEFINE (scm_make_subclass_object, "make-subclass-object", 2, 0, 0,
SCM pl;
SCM_VALIDATE_STRUCT (1,class);
SCM_VALIDATE_STRING (2,layout);
- pl = SCM_STRUCT_DATA (class)[scm_vtable_index_layout];
+ pl = SCM_PACK (SCM_STRUCT_DATA (class) [scm_vtable_index_layout]);
/* Convert symbol->string */
pl = scm_makfromstr (SCM_CHARS (pl), (scm_sizet) SCM_LENGTH (pl), 0);
return scm_i_make_class_object (SCM_STRUCT_VTABLE (class),