From aaeb21e0cc165a53fb8577fe35212af1b1b53876 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 17 Oct 2010 08:51:18 -0600
Subject: [PATCH] fix --disable-jit plus --disable-futures   Merge to 5.0.2

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

diff --git a/src/racket/src/fun.c b/src/racket/src/fun.c
index a5841f9c2a..a32297bd88 100644
--- a/src/racket/src/fun.c
+++ b/src/racket/src/fun.c
@@ -8358,6 +8358,8 @@ static Scheme_Object *continuation_prompt_available(int argc, Scheme_Object *arg
    JIT-generated code. The code here manages capture and restore for
    the runstack and mark stack, while the rest is in the JIT. */
 
+#ifdef MZ_USE_JIT
+
 struct Scheme_Lightweight_Continuation {
   MZTAG_IF_REQUIRED /* scheme_rt_lightweight_cont */
   Scheme_Current_LWC *saved_lwc;
@@ -8639,6 +8641,12 @@ int scheme_push_marks_from_thread(Scheme_Thread *p2, Scheme_Cont_Frame_Data *d)
   return 0;
 }
 
+#else
+
+void scheme_init_thread_lwc(void) XFORM_SKIP_PROC { }
+
+#endif
+
 /*========================================================================*/
 /*                             dynamic-wind                               */
 /*========================================================================*/