From e03b7f73e2927178f2d9485320435edb6260c311 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 26 Jan 2010 00:00:58 +0100 Subject: Recognize structs with both "pr" and "pw" flags as simple. * libguile/struct.c (set_vtable_layout_flags): Keep the `SCM_VTABLE_FLAG_SIMPLE' flag when VTABLE has a mixture of `r' and `w' fields. * libguile/struct.h (SCM_VTABLE_FLAG_SIMPLE): Adjust comment. --- libguile/struct.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/struct.h') diff --git a/libguile/struct.h b/libguile/struct.h index 374a5ce74..d2a05af2a 100644 --- a/libguile/struct.h +++ b/libguile/struct.h @@ -107,7 +107,7 @@ #define SCM_VTABLE_FLAG_APPLICABLE (1L << 2) /* instances of this vtable are applicable? */ #define SCM_VTABLE_FLAG_SETTER_VTABLE (1L << 3) /* instances of this vtable are applicable-with-setter vtables? */ #define SCM_VTABLE_FLAG_SETTER (1L << 4) /* instances of this vtable are applicable-with-setters? */ -#define SCM_VTABLE_FLAG_SIMPLE (1L << 5) /* instances of this vtable have only "pr" fields */ +#define SCM_VTABLE_FLAG_SIMPLE (1L << 5) /* instances of this vtable have only "p" fields */ #define SCM_VTABLE_FLAG_SIMPLE_RW (1L << 6) /* instances of this vtable have only "pw" fields */ #define SCM_VTABLE_FLAG_SMOB_0 (1L << 7) #define SCM_VTABLE_FLAG_GOOPS_0 (1L << 8) -- cgit v1.2.3