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

fix check for constructor of struct setter of immutable field

Browse Source 
Merge to v5.3.1
This commit is contained in:
Matthew Flatt 2012-10-18 11:02:06 -06:00
parent 274d004546
commit b912d0f059
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/racket/src/struct.c
View File

@ -3831,10 +3831,18 @@ make_struct_proc(Scheme_Struct_Type *struct_type,
2 + need_pos, 2 + need_pos, 0);
if (need_pos)
flags |= SCHEME_PRIM_STRUCT_TYPE_INDEXLESS_SETTER;
else if (struct_type->immutables && struct_type->immutables[field_num])
flags |= SCHEME_PRIM_STRUCT_TYPE_BROKEN_INDEXED_SETTER;
else
flags |= SCHEME_PRIM_STRUCT_TYPE_INDEXED_SETTER;
else {
flags |= SCHEME_PRIM_STRUCT_TYPE_INDEXED_SETTER;
if (struct_type->immutables) {
if (struct_type->name_pos)
field_num -= struct_type->parent_types[struct_type->name_pos - 1]->num_slots;
if (struct_type->immutables[field_num]) {
flags -= SCHEME_PRIM_STRUCT_TYPE_INDEXED_SETTER;
flags |= SCHEME_PRIM_STRUCT_TYPE_BROKEN_INDEXED_SETTER;
}
}
}
/* See note above:
if (need_pos) struct_type->mutator = p; */
}