summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2002-10-11 13:02:50 +0000
committerMarius Vollmer <mvo@zagadka.de>2002-10-11 13:02:50 +0000
commit4feac0b9045bcc0c6e2348b3de94bacdc7a30293 (patch)
treed78f6a9700421ca44cb2e924a53b66641aec9f2a /libguile/async.c
parent6d16b1257f79d745b5af61c5cb8aff89c4988c26 (diff)
downloadguile-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.c4
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