header tidyings

* libguile/goops.h:
* libguile/struct.h: c-backslash-region some vars.

diff --git a/libguile/goops.h b/libguile/goops.h
index 816b231..382422d 100644 (file)
--- 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 a441bba..9372cec 100644 (file)
--- 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