fix meta-continuation depth when cloning

svn: r5260
This commit is contained in:
Matthew Flatt 2007-01-08 07:18:02 +00:00
parent 20b834d84b
commit 5646c26ba9

View File

@ -3917,7 +3917,7 @@ static Scheme_Meta_Continuation *clone_meta_cont(Scheme_Meta_Continuation *mc,
else
depth = 0;
for (naya = first; cnt--; naya = naya->next) {
first->depth = depth + cnt;
naya->depth = depth + cnt;
}
return first;