summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
Diffstat (limited to 'libguile')
-rw-r--r--libguile/goops.h40
-rw-r--r--libguile/struct.h22
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