mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

header tidyings

Browse source 
* libguile/goops.h:
* libguile/struct.h: c-backslash-region some vars.
This commit is contained in:
Andy Wingo 2009-11-26 00:13:53 +01:00
parent 71fc643893
commit 2858deaf47
2 changed files with 31 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

40
libguile/goops.h
View file

@ -61,26 +61,26 @@
*/ */
/* see also, SCM_VTABLE_BASE_LAYOUT, and build_class_class_slots */ /* see also, SCM_VTABLE_BASE_LAYOUT, and build_class_class_slots */
#define SCM_CLASS_CLASS_LAYOUT \ #define SCM_CLASS_CLASS_LAYOUT \
"pw" /* redefined */ \ "pw" /* redefined */ \
"uw" /* h0 */ \ "uw" /* h0 */ \
"uw" /* h1 */ \ "uw" /* h1 */ \
"uw" /* h2 */ \ "uw" /* h2 */ \
"uw" /* h3 */ \ "uw" /* h3 */ \
"uw" /* h4 */ \ "uw" /* h4 */ \
"uw" /* h5 */ \ "uw" /* h5 */ \
"uw" /* h6 */ \ "uw" /* h6 */ \
"uw" /* h7 */ \ "uw" /* h7 */ \
"pw" /* direct supers */ \ "pw" /* direct supers */ \
"pw" /* direct slots */ \ "pw" /* direct slots */ \
"pw" /* direct subclasses */ \ "pw" /* direct subclasses */ \
"pw" /* direct methods */ \ "pw" /* direct methods */ \
"pw" /* cpl */ \ "pw" /* cpl */ \
"pw" /* default-slot-definition-class */ \ "pw" /* default-slot-definition-class */ \
"pw" /* slots */ \ "pw" /* slots */ \
"pw" /* getters-n-setters */ \ "pw" /* getters-n-setters */ \
"pw" /* keyword access */ \ "pw" /* keyword access */ \
"pw" /* nfields */ \ "pw" /* nfields */ \
"pw" /* environment */ "pw" /* environment */
#define scm_si_redefined (scm_vtable_offset_user + 0) #define scm_si_redefined (scm_vtable_offset_user + 0)

22
libguile/struct.h
View file

@ -39,14 +39,14 @@
*/ */
/* All vtables have the following fields. */ /* All vtables have the following fields. */
#define SCM_VTABLE_BASE_LAYOUT \ #define SCM_VTABLE_BASE_LAYOUT \
"pr" /* layout */ \ "pr" /* layout */ \
"uh" /* flags */ \ "uh" /* flags */ \
"sr" /* self */ \ "sr" /* self */ \
"uh" /* finalizer */ \ "uh" /* finalizer */ \
"pw" /* printer */ \ "pw" /* printer */ \
"ph" /* name (hidden from make-struct for back-compat reasons) */ \ "ph" /* name (hidden from make-struct for back-compat reasons) */ \
"uh" /* reserved */ \ "uh" /* reserved */ \
"uh" /* reserved */ "uh" /* reserved */
#define scm_vtable_index_layout 0 /* A symbol describing the physical arrangement of this type. */ #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? */ #define scm_vtable_offset_user 8 /* Where do user fields start in the vtable? */
/* All applicable structs have the following fields. */ /* All applicable structs have the following fields. */
#define SCM_APPLICABLE_BASE_LAYOUT \ #define SCM_APPLICABLE_BASE_LAYOUT \
"pw" /* procedure */ "pw" /* procedure */
#define SCM_APPLICABLE_WITH_SETTER_BASE_LAYOUT \ #define SCM_APPLICABLE_WITH_SETTER_BASE_LAYOUT \
"pw" /* procedure */ \ "pw" /* procedure */ \
"pw" /* setter */ "pw" /* setter */
#define scm_applicable_struct_index_procedure 0 /* The procedure of an applicable #define scm_applicable_struct_index_procedure 0 /* The procedure of an applicable
struct. Only valid if the struct. Only valid if the