248 |
"signal handlers.") |
"signal handlers.") |
249 |
#define FUNC_NAME s_scm_system_async_mark_for_thread |
#define FUNC_NAME s_scm_system_async_mark_for_thread |
250 |
{ |
{ |
|
#ifdef USE_THREADS |
|
251 |
if (SCM_UNBNDP (thread)) |
if (SCM_UNBNDP (thread)) |
252 |
thread = scm_current_thread (); |
thread = scm_current_thread (); |
253 |
else |
else |
258 |
} |
} |
259 |
scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), |
scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), |
260 |
scm_i_thread_root (thread)); |
scm_i_thread_root (thread)); |
|
#else |
|
|
scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), scm_root); |
|
|
#endif |
|
261 |
return SCM_UNSPECIFIED; |
return SCM_UNSPECIFIED; |
262 |
} |
} |
263 |
#undef FUNC_NAME |
#undef FUNC_NAME |