diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-01-12 00:38:22 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-01-12 00:38:56 +0100 |
commit | 0f4f2d9a3096f935f4e4f91ee437b7b5b16d20c8 (patch) | |
tree | b60b6cf9fc7ae5f09ae17b19ed4dfae75d09b5e0 /libguile/threads.c | |
parent | ea3cef045a413aa1001cf13e1ea2bc150626c3ce (diff) | |
download | guile-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.c | 2 |
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; } |