From 26766f9cfa5a456a4a07f931f47175e121866c59 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 1 Feb 2007 06:03:02 +0000 Subject: [PATCH] fixed yet another race condition in a test svn: r5530 --- collects/tests/mzscheme/prompt-tests.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/prompt-tests.ss b/collects/tests/mzscheme/prompt-tests.ss index e51f59439a..46995b2efb 100644 --- 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 ()