suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Whitespace fixes

Browse Source 
svn: r18716
This commit is contained in:
Kevin Tew 2010-04-01 22:18:06 +00:00
parent 191b111109
commit 20b39568ad
1 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
src/mzscheme/src/struct.c
View File

@ -3553,11 +3553,11 @@ static void struct_type_set_if_immutable(Scheme_Struct_Type *struct_type) {
} }
Scheme_Struct_Type *scheme_make_prefab_struct_type_raw(Scheme_Object *base, Scheme_Struct_Type *scheme_make_prefab_struct_type_raw(Scheme_Object *base,
Scheme_Object *parent, Scheme_Object *parent,
int num_fields, int num_fields,
int num_uninit_fields, int num_uninit_fields,
Scheme_Object *uninit_val, Scheme_Object *uninit_val,
char *immutable_array) char *immutable_array)
{ {
Scheme_Struct_Type *struct_type, *parent_type; Scheme_Struct_Type *struct_type, *parent_type;
int j, depth; int j, depth;
@ -3595,11 +3595,11 @@ Scheme_Struct_Type *scheme_make_prefab_struct_type_raw(Scheme_Object *base,
} }
static Scheme_Struct_Type *scheme_make_prefab_struct_type(Scheme_Object *base, static Scheme_Struct_Type *scheme_make_prefab_struct_type(Scheme_Object *base,
Scheme_Object *parent, Scheme_Object *parent,
int num_fields, int num_fields,
int num_uninit_fields, int num_uninit_fields,
Scheme_Object *uninit_val, Scheme_Object *uninit_val,
char *immutable_array) char *immutable_array)
{ {
#ifdef MZ_USE_PLACES #ifdef MZ_USE_PLACES
return scheme_make_prefab_struct_type_in_master return scheme_make_prefab_struct_type_in_master
@ -3607,23 +3607,23 @@ static Scheme_Struct_Type *scheme_make_prefab_struct_type(Scheme_Object *base,
return scheme_make_prefab_struct_type_raw return scheme_make_prefab_struct_type_raw
#endif #endif
(base, (base,
parent, parent,
num_fields, num_fields,
num_uninit_fields, num_uninit_fields,
uninit_val, uninit_val,
immutable_array); immutable_array);
} }
static Scheme_Object *_make_struct_type(Scheme_Object *base, static Scheme_Object *_make_struct_type(Scheme_Object *base,
Scheme_Object *parent, Scheme_Object *parent,
Scheme_Object *inspector, Scheme_Object *inspector,
int num_fields, int num_fields,
int num_uninit_fields, int num_uninit_fields,
Scheme_Object *uninit_val, Scheme_Object *uninit_val,
Scheme_Object *props, Scheme_Object *props,
Scheme_Object *proc_attr, Scheme_Object *proc_attr,
char *immutable_array, char *immutable_array,
Scheme_Object *guard) Scheme_Object *guard)
{ {
Scheme_Struct_Type *struct_type, *parent_type; Scheme_Struct_Type *struct_type, *parent_type;
int j, depth, checked_proc = 0; int j, depth, checked_proc = 0;
@ -4173,9 +4173,9 @@ static Scheme_Object *make_struct_type(int argc, Scheme_Object **argv)
} }
type = scheme_make_prefab_struct_type(argv[0], type = scheme_make_prefab_struct_type(argv[0],
SCHEME_FALSEP(argv[1]) ? NULL : argv[1], SCHEME_FALSEP(argv[1]) ? NULL : argv[1],
initc, uninitc, initc, uninitc,
uninit_val, uninit_val,
immutable_array); immutable_array);
} }
else { else {