From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 14 Nov 2014 04:47:04 +0000 (+0000)
Subject: Don't let just any event wake THREAD-JOIN.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~113
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=15790d6d544605f24a660190e782e2d4dff17833;p=mit-scheme.git

Don't let just any event wake THREAD-JOIN.
---

diff --git a/tests/runtime/test-thread-queue.scm b/tests/runtime/test-thread-queue.scm
index 6f86b7d57..186bb7e78 100644
--- a/tests/runtime/test-thread-queue.scm
+++ b/tests/runtime/test-thread-queue.scm
@@ -56,14 +56,15 @@ USA.
     (thread-join consumer)))
 
 (define (thread-join thread)
-  (let ((value))
+  (let ((done? #f) (value))
     (with-thread-events-blocked
      (lambda ()
        (join-thread thread (lambda (thread v)
 			     (declare (ignore thread))
 			     (set! value v)
+			     (set! done? #t)
 			     #f))
-       (suspend-current-thread)
+       (do () (done?) (suspend-current-thread))
        value))))
 
 (define-test 'thread-queue