From 8d6f390e83974eb593cb73c426423e53189be848 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 27 Jun 2008 18:44:54 +0000
Subject: [PATCH] avoid crash related to running DWs in meta-continuations

svn: r10479
---
 src/mzscheme/src/fun.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index 4414d200c9..3e92ea65b1 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -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));