From 3046afea047f2817a37f92a6abe2e72710772d91 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 17 Jan 2010 02:29:29 +0000 Subject: [PATCH] added an code to avoid a race svn: r17682 --- collects/2htdp/tests/robby-optimization-gone.ss | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/2htdp/tests/robby-optimization-gone.ss b/collects/2htdp/tests/robby-optimization-gone.ss index 8da68f8615..fb70329b00 100644 --- a/collects/2htdp/tests/robby-optimization-gone.ss +++ b/collects/2htdp/tests/robby-optimization-gone.ss @@ -1,4 +1,4 @@ -#lang scheme +#lang scheme/gui (require 2htdp/universe) (require 2htdp/image) @@ -17,4 +17,8 @@ (set! s (string-append "-" s)) (rectangle 1 1 'solid 'green))))) -(unless (string=? s "---") (error 'world-update-test "failed! ~s" s)) \ No newline at end of file +(let ([s (make-semaphore)]) + (queue-callback (λ () (semaphore-post s))) + (yield s)) + +(unless (string=? s "---") (error 'world-update-test "failed! ~s" s))