fix non-futures build

This commit is contained in:
Matthew Flatt 2010-07-06 06:05:47 -06:00
parent 43e9e930d8
commit 1e40e72652

View File

@ -381,7 +381,9 @@ void scheme_init_os_thread() XFORM_SKIP_PROC
void scheme_done_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()); free(scheme_get_thread_local_variables());
#endif
#ifdef OS_X #ifdef OS_X
# ifdef MZ_PRECISE_GC # ifdef MZ_PRECISE_GC
GC_detach_current_thread_exceptions_from_handler(); GC_detach_current_thread_exceptions_from_handler();