suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added an code to avoid a race

Browse Source 
svn: r17682
This commit is contained in:
Robby Findler 2010-01-17 02:29:29 +00:00
parent 4189297063
commit 3046afea04
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/2htdp/tests/robby-optimization-gone.ss
View File

@ -1,4 +1,4 @@
#lang scheme #lang scheme/gui
(require 2htdp/universe) (require 2htdp/universe)
(require 2htdp/image) (require 2htdp/image)
@ -17,4 +17,8 @@
(set! s (string-append "-" s)) (set! s (string-append "-" s))
(rectangle 1 1 'solid 'green))))) (rectangle 1 1 'solid 'green)))))
(let ([s (make-semaphore)])
(queue-callback (λ () (semaphore-post s)))
(yield s))
(unless (string=? s "---") (error 'world-update-test "failed! ~s" s)) (unless (string=? s "---") (error 'world-update-test "failed! ~s" s))