From 4d45e7b69aaa0529653963df75e16b31fbada8eb Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 12 Mar 2000 17:52:18 +0000 Subject: * stacks.c, stacks.h, struct.c, tags.h, unif.c (scm_bits_t): Renamed from SCMWORD. --- libguile/struct.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/struct.c') diff --git a/libguile/struct.c b/libguile/struct.c index 7c59a409d..d6d2ea02d 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -326,7 +326,7 @@ scm_alloc_struct (int n_words, int n_extra, char *who) SCM *p = block + n_extra; /* Adjust it even further so it's aligned on an eight-byte boundary. */ - p = (SCM *) (((SCMWORD) SCM_BITS (p) + 7) & ~7); + p = (SCM *) (((scm_bits_t) SCM_BITS (p) + 7) & ~7); /* Initialize a few fields as described above. */ p[scm_struct_i_free] = (SCM) scm_struct_free_standard; @@ -522,7 +522,7 @@ SCM_DEFINE (scm_struct_ref, "struct-ref", 2, 0, 0, SCM * data; SCM layout; int p; - SCMWORD n_fields; + scm_bits_t n_fields; unsigned char * fields_desc; unsigned char field_type = 0; -- cgit v1.2.3