From 1e40e7265203927da561a520d0f7260f8315204e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 6 Jul 2010 06:05:47 -0600
Subject: [PATCH] fix non-futures build

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

diff --git a/src/racket/src/salloc.c b/src/racket/src/salloc.c
index 320753d225..61ddeef6a3 100644
--- a/src/racket/src/salloc.c
+++ b/src/racket/src/salloc.c
@@ -381,7 +381,9 @@ void scheme_init_os_thread() XFORM_SKIP_PROC
 
 void scheme_done_os_thread() XFORM_SKIP_PROC
 {
+#if defined(IMPLEMENT_THREAD_LOCAL_VIA_PTHREADS) || defined(IMPLEMENT_THREAD_LOCAL_VIA_WIN_TLS)
   free(scheme_get_thread_local_variables());
+#endif
 #ifdef OS_X
 # ifdef MZ_PRECISE_GC
   GC_detach_current_thread_exceptions_from_handler();