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 |
#ifdef USE_THREADS |
233 |
|
if (SCM_UNBNDP (thread)) |
234 |
|
thread = scm_current_thread (); |
235 |
|
else |
236 |
|
SCM_VALIDATE_THREAD (2, thread); |
237 |
|
|
238 |
scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), |
scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), |
239 |
(SCM_UNBNDP (thread) |
scm_i_thread_root (thread)); |
|
? scm_root |
|
|
: scm_i_thread_root (thread))); |
|
240 |
#else |
#else |
241 |
scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), scm_root); |
scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), scm_root); |
242 |
#endif |
#endif |