summaryrefslogtreecommitdiff
path: root/libguile/struct.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:25:37 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:25:37 +0000
commit3b3b36ddb7dfbd5094abee360c253c8f1216dcdd (patch)
treebe6f18ee784818de032ac23e77470b67e260ffef /libguile/struct.c
parentcbaee92a8b6d8abba6bd236d089a7e6c3cf471b3 (diff)
downloadguile-3b3b36ddb7dfbd5094abee360c253c8f1216dcdd.tar.gz
* *.[ch]: Whitespace changes -- added space after SCM_VALIDATE_*
macros and SCM_DEFINE macros to match GNU coding standards.
Diffstat (limited to 'libguile/struct.c')
-rw-r--r--libguile/struct.c28
1 files changed, 14 insertions, 14 deletions
diff --git a/libguile/struct.c b/libguile/struct.c
index f0760a5eb..a920179e3 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -81,7 +81,7 @@ indicate that the field is a tail-array.")
#define FUNC_NAME s_scm_make_struct_layout
{
SCM new_sym;
- SCM_VALIDATE_ROSTRING(1,fields);
+ SCM_VALIDATE_ROSTRING (1,fields);
{ /* scope */
char * field_desc;
int len;
@@ -390,8 +390,8 @@ can not be initialized by Scheme programs.")
SCM * data;
SCM handle;
- SCM_VALIDATE_VTABLE(1,vtable);
- SCM_VALIDATE_INUM(2,tail_array_size);
+ SCM_VALIDATE_VTABLE (1,vtable);
+ SCM_VALIDATE_INUM (2,tail_array_size);
layout = SCM_STRUCT_DATA (vtable)[scm_vtable_index_layout];
basic_size = SCM_LENGTH (layout) / 2;
@@ -496,8 +496,8 @@ provided, it will be interpreted as a print call-back function.
SCM * data;
SCM handle;
- SCM_VALIDATE_ROSTRING(1,extra_fields);
- SCM_VALIDATE_INUM(2,tail_array_size);
+ SCM_VALIDATE_ROSTRING (1,extra_fields);
+ SCM_VALIDATE_INUM (2,tail_array_size);
fields = scm_string_append (scm_listify (required_vtable_fields,
extra_fields,
@@ -542,8 +542,8 @@ integer value small enough to fit in one machine word.")
unsigned char field_type = 0;
- SCM_VALIDATE_STRUCT(1,handle);
- SCM_VALIDATE_INUM(2,pos);
+ SCM_VALIDATE_STRUCT (1,handle);
+ SCM_VALIDATE_INUM (2,pos);
layout = SCM_STRUCT_LAYOUT (handle);
data = SCM_STRUCT_DATA (handle);
@@ -619,8 +619,8 @@ SCM_DEFINE (scm_struct_set_x, "struct-set!", 3, 0, 0,
unsigned char * fields_desc;
unsigned char field_type = 0;
- SCM_VALIDATE_STRUCT(1,handle);
- SCM_VALIDATE_INUM(2,pos);
+ SCM_VALIDATE_STRUCT (1,handle);
+ SCM_VALIDATE_INUM (2,pos);
layout = SCM_STRUCT_LAYOUT (handle);
data = SCM_STRUCT_DATA (handle);
@@ -686,7 +686,7 @@ SCM_DEFINE (scm_struct_vtable, "struct-vtable", 1, 0, 0,
"Return the vtable structure that describes the type of @var{struct}.")
#define FUNC_NAME s_scm_struct_vtable
{
- SCM_VALIDATE_STRUCT(1,handle);
+ SCM_VALIDATE_STRUCT (1,handle);
return SCM_STRUCT_VTABLE (handle);
}
#undef FUNC_NAME
@@ -697,7 +697,7 @@ SCM_DEFINE (scm_struct_vtable_tag, "struct-vtable-tag", 1, 0, 0,
"")
#define FUNC_NAME s_scm_struct_vtable_tag
{
- SCM_VALIDATE_VTABLE(1,handle);
+ SCM_VALIDATE_VTABLE (1,handle);
return scm_long2num ((long) SCM_STRUCT_DATA (handle) >> 3);
}
#undef FUNC_NAME
@@ -736,7 +736,7 @@ SCM_DEFINE (scm_struct_vtable_name, "struct-vtable-name", 1, 0, 0,
"")
#define FUNC_NAME s_scm_struct_vtable_name
{
- SCM_VALIDATE_VTABLE(1,vtable);
+ SCM_VALIDATE_VTABLE (1,vtable);
return SCM_STRUCT_TABLE_NAME (SCM_CDR (scm_struct_create_handle (vtable)));
}
#undef FUNC_NAME
@@ -746,8 +746,8 @@ SCM_DEFINE (scm_set_struct_vtable_name_x, "set-struct-vtable-name!", 2, 0, 0,
"")
#define FUNC_NAME s_scm_set_struct_vtable_name_x
{
- SCM_VALIDATE_VTABLE(1,vtable);
- SCM_VALIDATE_SYMBOL(2,name);
+ SCM_VALIDATE_VTABLE (1,vtable);
+ SCM_VALIDATE_SYMBOL (2,name);
SCM_SET_STRUCT_TABLE_NAME (SCM_CDR (scm_struct_create_handle (vtable)),
name);
return SCM_UNSPECIFIED;