avoid crash related to running DWs in meta-continuations

svn: r10479
This commit is contained in:
Matthew Flatt 2008-06-27 18:44:54 +00:00
parent 9707770ace
commit 8d6f390e83

View File

@ -4599,6 +4599,9 @@ static void sync_meta_cont(Scheme_Meta_Continuation *resume_mc)
{
Scheme_Cont *cnaya;
if (!resume_mc->cont)
return;
cnaya = MALLOC_ONE_TAGGED(Scheme_Cont);
memcpy(cnaya, resume_mc->cont, sizeof(Scheme_Cont));