From 4feac0b9045bcc0c6e2348b3de94bacdc7a30293 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Fri, 11 Oct 2002 13:02:50 +0000 Subject: * async.c (s_scm_system_async_mark_for_thread): Only call scm_i_thread_root when USE_THREADS is defined. Use scm_root otherwise. * scmsigs.c (take_signal): Only call scm_i_thread_root when USE_THREADS is defined. Use scm_root otherwise. (scm_sigaction_for_thread): Ignore THREAD argument when USE_THREADS is not defined. Also, move THREAD argument defaulting out of HAVE_SIGACTION section, which was a bug. --- libguile/async.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'libguile/async.c') diff --git a/libguile/async.c b/libguile/async.c index 994a8ef04..6b133fb68 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -229,10 +229,14 @@ SCM_DEFINE (scm_system_async_mark_for_thread, "system-async-mark", 1, 1, 0, "use the current thread.") #define FUNC_NAME s_scm_system_async_mark_for_thread { +#ifdef USE_THREADS scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), (SCM_UNBNDP (thread) ? scm_root : scm_i_thread_root (thread))); +#else + scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), scm_root); +#endif return SCM_UNSPECIFIED; } #undef FUNC_NAME -- cgit v1.2.3