diff options
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/goops.h | 40 | ||||
-rw-r--r-- | libguile/struct.h | 22 |
2 files changed, 31 insertions, 31 deletions
diff --git a/libguile/goops.h b/libguile/goops.h index 816b231dc..382422d5f 100644 --- a/libguile/goops.h +++ b/libguile/goops.h @@ -61,26 +61,26 @@ */ /* see also, SCM_VTABLE_BASE_LAYOUT, and build_class_class_slots */ -#define SCM_CLASS_CLASS_LAYOUT \ - "pw" /* redefined */ \ - "uw" /* h0 */ \ - "uw" /* h1 */ \ - "uw" /* h2 */ \ - "uw" /* h3 */ \ - "uw" /* h4 */ \ - "uw" /* h5 */ \ - "uw" /* h6 */ \ - "uw" /* h7 */ \ - "pw" /* direct supers */ \ - "pw" /* direct slots */ \ - "pw" /* direct subclasses */ \ - "pw" /* direct methods */ \ - "pw" /* cpl */ \ - "pw" /* default-slot-definition-class */ \ - "pw" /* slots */ \ - "pw" /* getters-n-setters */ \ - "pw" /* keyword access */ \ - "pw" /* nfields */ \ +#define SCM_CLASS_CLASS_LAYOUT \ + "pw" /* redefined */ \ + "uw" /* h0 */ \ + "uw" /* h1 */ \ + "uw" /* h2 */ \ + "uw" /* h3 */ \ + "uw" /* h4 */ \ + "uw" /* h5 */ \ + "uw" /* h6 */ \ + "uw" /* h7 */ \ + "pw" /* direct supers */ \ + "pw" /* direct slots */ \ + "pw" /* direct subclasses */ \ + "pw" /* direct methods */ \ + "pw" /* cpl */ \ + "pw" /* default-slot-definition-class */ \ + "pw" /* slots */ \ + "pw" /* getters-n-setters */ \ + "pw" /* keyword access */ \ + "pw" /* nfields */ \ "pw" /* environment */ #define scm_si_redefined (scm_vtable_offset_user + 0) diff --git a/libguile/struct.h b/libguile/struct.h index a441bbab1..9372cecda 100644 --- a/libguile/struct.h +++ b/libguile/struct.h @@ -39,14 +39,14 @@ */ /* All vtables have the following fields. */ -#define SCM_VTABLE_BASE_LAYOUT \ - "pr" /* layout */ \ - "uh" /* flags */ \ - "sr" /* self */ \ - "uh" /* finalizer */ \ - "pw" /* printer */ \ - "ph" /* name (hidden from make-struct for back-compat reasons) */ \ - "uh" /* reserved */ \ +#define SCM_VTABLE_BASE_LAYOUT \ + "pr" /* layout */ \ + "uh" /* flags */ \ + "sr" /* self */ \ + "uh" /* finalizer */ \ + "pw" /* printer */ \ + "ph" /* name (hidden from make-struct for back-compat reasons) */ \ + "uh" /* reserved */ \ "uh" /* reserved */ #define scm_vtable_index_layout 0 /* A symbol describing the physical arrangement of this type. */ @@ -60,10 +60,10 @@ #define scm_vtable_offset_user 8 /* Where do user fields start in the vtable? */ /* All applicable structs have the following fields. */ -#define SCM_APPLICABLE_BASE_LAYOUT \ +#define SCM_APPLICABLE_BASE_LAYOUT \ "pw" /* procedure */ -#define SCM_APPLICABLE_WITH_SETTER_BASE_LAYOUT \ - "pw" /* procedure */ \ +#define SCM_APPLICABLE_WITH_SETTER_BASE_LAYOUT \ + "pw" /* procedure */ \ "pw" /* setter */ #define scm_applicable_struct_index_procedure 0 /* The procedure of an applicable struct. Only valid if the |