summaryrefslogtreecommitdiff
path: root/libguile/threads.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-01-12 00:38:22 +0100
committerLudovic Courtès <ludo@gnu.org>2012-01-12 00:38:56 +0100
commit0f4f2d9a3096f935f4e4f91ee437b7b5b16d20c8 (patch)
treeb60b6cf9fc7ae5f09ae17b19ed4dfae75d09b5e0 /libguile/threads.c
parentea3cef045a413aa1001cf13e1ea2bc150626c3ce (diff)
downloadguile-0f4f2d9a3096f935f4e4f91ee437b7b5b16d20c8.tar.gz
Make sure `scm_spawn_thread' returns a thread.
* libguile/threads.c (scm_spawn_thread): Add an assertion that DATA.thread is a thread. This assertion is sometimes hit on x86_64-freebsd8.2.
Diffstat (limited to 'libguile/threads.c')
-rw-r--r--libguile/threads.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/threads.c b/libguile/threads.c
index ad8720bfa..392f9fe58 100644
--- a/libguile/threads.c
+++ b/libguile/threads.c
@@ -1132,6 +1132,8 @@ scm_spawn_thread (scm_t_catch_body body, void *body_data,
scm_i_scm_pthread_cond_wait (&data.cond, &data.mutex);
scm_i_pthread_mutex_unlock (&data.mutex);
+ assert (SCM_I_IS_THREAD (data.thread));
+
return data.thread;
}