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
{
#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();