From a022e78ab121f36f8f38813dc54945ad44cb0741 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 11 Jul 2012 10:25:16 -0600
Subject: [PATCH] fix Windows (and maybe other compilers) compile problem

---
 src/racket/src/future.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/racket/src/future.c b/src/racket/src/future.c
index bd7792a3a0..994dbc3634 100644
--- a/src/racket/src/future.c
+++ b/src/racket/src/future.c
@@ -2062,11 +2062,10 @@ Scheme_Object *touch(int argc, Scheme_Object *argv[])
   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
   if (fts->is_runtime_thread) {
     future_t *ft;
-    future_t *targ_ft;
     if (fts->thread 
         && (ft = fts->thread->current_ft) 
         && ft->in_tracing_mode) { 
-      targ_ft = (future_t*)argv[0];
+      future_t *targ_ft = (future_t*)argv[0];
       Scheme_Future_State *fs = scheme_future_state;
       Scheme_Object *targid_obj;
       targid_obj = scheme_make_integer(targ_ft->id);