141 |
scm_tc16_mutex = scm_make_smob_type ("mutex", sizeof (coop_m)); |
scm_tc16_mutex = scm_make_smob_type ("mutex", sizeof (coop_m)); |
142 |
scm_tc16_condvar = scm_make_smob_type ("condition-variable", sizeof (coop_c)); |
scm_tc16_condvar = scm_make_smob_type ("condition-variable", sizeof (coop_c)); |
143 |
|
|
|
#ifndef SCM_MAGIC_SNARFER |
|
144 |
#include "libguile/threads.x" |
#include "libguile/threads.x" |
|
#endif |
|
145 |
/* Initialize implementation specific details of the threads support */ |
/* Initialize implementation specific details of the threads support */ |
146 |
scm_threads_init (i); |
scm_threads_init (i); |
147 |
} |
} |