From 6013922c08c35a4e1051d4481d5bb4580bda1430 Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Thu, 23 Sep 2010 23:13:39 +0100 Subject: [PATCH] Workaround for hang in threads.test --- test-suite/tests/threads.test | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/test-suite/tests/threads.test b/test-suite/tests/threads.test index 58a2eba..234fb73 100644 --- a/test-suite/tests/threads.test +++ b/test-suite/tests/threads.test @@ -358,7 +358,9 @@ (let* ((m (make-mutex)) (t (begin-thread 'foo))) (lock-mutex m #f t) - (eq? (mutex-owner m) t))) + (let ((result (eq? (mutex-owner m) t))) + (join-thread t) + result))) (pass-if "locking mutex with no owner" (let ((m (make-mutex))) -- 1.7.1