From b32d2eeaace0ae8be236f1a2c90d11640601d414 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 5 Feb 2011 06:41:09 -0700
Subject: [PATCH] futures: fix lightweight-continuation GC bug  Merge to 5.1
 (cherry picked from commit 7579b487913b3bf84d339686f2e77c0136359d53)

---
 src/racket/src/fun.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/racket/src/fun.c b/src/racket/src/fun.c
index 3c223f67f5..e68dbf40f7 100644
--- a/src/racket/src/fun.c
+++ b/src/racket/src/fun.c
@@ -8516,6 +8516,7 @@ Scheme_Lightweight_Continuation *scheme_capture_lightweight_continuation(Scheme_
 
   lw = (Scheme_Lightweight_Continuation *)storage[0];
   lw->stack_slice = stack;
+  lwc = lw->saved_lwc;
 
   len = lwc->runstack_start - lwc->runstack_end;
   runstack_slice = MALLOC_N(Scheme_Object*, len);
@@ -8535,6 +8536,7 @@ Scheme_Lightweight_Continuation *scheme_capture_lightweight_continuation(Scheme_
       runstack_slice[i] = 0;
   }
 
+  lwc = lw->saved_lwc;
   len = lwc->cont_mark_stack_end - lwc->cont_mark_stack_start;
 
   if (len) {