fixed yet another race condition in a test

svn: r5530
2007-02-01 06:03:02 +00:00 · 2007-02-01 06:03:02 +00:00 · 26766f9cfa
commit 26766f9cfa
parent 1ecaecbd99
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/mzscheme/prompt-tests.ss
+++ b/collects/tests/mzscheme/prompt-tests.ss
@ -1650,7 +1650,7 @@
  (let ([t (thread (lambda () (long-loop void)))])
    (sleep 0.05)
    (break-thread t)
-    (sleep 0.05)
+    (sync (system-idle-evt))
    (test #f thread-running? t))
  (printf "Trying long chain...\n")
  (let ([k (long-loop (lambda ()