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

fixed assignment in sub-struct with immutable field

Browse Source 
svn: r369
This commit is contained in:
Matthew Flatt 2005-07-09 13:19:14 +00:00
parent 6315ed4bd8
commit 4c8917c428
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1089,11 +1089,12 @@ static Scheme_Object *struct_setter(Struct_Proc_Info *i, int argc, Scheme_Object
if (i->struct_type->immutables) {
Scheme_Struct_Type *t = i->struct_type;
int p = pos;
if (t->name_pos)
pos -= t->parent_types[t->name_pos - 1]->num_slots;
p -= t->parent_types[t->name_pos - 1]->num_slots;
if (t->immutables[pos]) {
if (t->immutables[p]) {
scheme_arg_mismatch(i->func_name,
"cannot modify value of immutable field in structure: ",
args[0]);