diff options
author | Marius Vollmer <mvo@zagadka.de> | 2002-10-11 13:02:50 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2002-10-11 13:02:50 +0000 |
commit | 4feac0b9045bcc0c6e2348b3de94bacdc7a30293 (patch) | |
tree | d78f6a9700421ca44cb2e924a53b66641aec9f2a /libguile/async.c | |
parent | 6d16b1257f79d745b5af61c5cb8aff89c4988c26 (diff) | |
download | guile-4feac0b9045bcc0c6e2348b3de94bacdc7a30293.tar.gz |
* 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.
Diffstat (limited to 'libguile/async.c')
-rw-r--r-- | libguile/async.c | 4 |
1 files changed, 4 insertions, 0 deletions
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 |