fix non-futures build
This commit is contained in:
parent
43e9e930d8
commit
1e40e72652
|
@ -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();
|
||||||
|
|
Loading…
Reference in New Issue
Block a user