fix meta-continuation depth when cloning
svn: r5260
This commit is contained in:
parent
20b834d84b
commit
5646c26ba9
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue
Block a user