229 |
"use the current thread.") |
"use the current thread.") |
230 |
#define FUNC_NAME s_scm_system_async_mark_for_thread |
#define FUNC_NAME s_scm_system_async_mark_for_thread |
231 |
{ |
{ |
232 |
|
#ifdef USE_THREADS |
233 |
scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), |
scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), |
234 |
(SCM_UNBNDP (thread) |
(SCM_UNBNDP (thread) |
235 |
? scm_root |
? scm_root |
236 |
: scm_i_thread_root (thread))); |
: scm_i_thread_root (thread))); |
237 |
|
#else |
238 |
|
scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), scm_root); |
239 |
|
#endif |
240 |
return SCM_UNSPECIFIED; |
return SCM_UNSPECIFIED; |
241 |
} |
} |
242 |
#undef FUNC_NAME |
#undef FUNC_NAME |