diff options
Diffstat (limited to 'libguile/threads.c')
-rw-r--r-- | libguile/threads.c | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/libguile/threads.c b/libguile/threads.c index b6099309f..9f11ac7e8 100644 --- a/libguile/threads.c +++ b/libguile/threads.c @@ -2093,6 +2093,12 @@ scm_t_bits scm_tc16_thread; scm_t_bits scm_tc16_mutex; scm_t_bits scm_tc16_condvar; +static void +scm_init_ice_9_threads (void *unused) +{ +#include "libguile/threads.x" +} + void scm_init_threads () { @@ -2111,6 +2117,10 @@ scm_init_threads () threads_initialized_p = 1; dynwind_critical_section_mutex = scm_make_recursive_mutex (); + + scm_c_register_extension ("libguile-" SCM_EFFECTIVE_VERSION, + "scm_init_ice_9_threads", + scm_init_ice_9_threads, NULL); } void @@ -2120,12 +2130,6 @@ scm_init_threads_default_dynamic_state () scm_i_default_dynamic_state = state; } -void -scm_init_thread_procs () -{ -#include "libguile/threads.x" -} - /* IA64-specific things. */ |