From 5b7532c864915ff42342a23490acde9f0d7a3ede Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 19 Aug 2013 23:36:32 -0500 Subject: [PATCH] don't evaluate (sync (system-idle-evt)) since it might not come true in a parallel build Thanks to Asumu for spotting this. --- pkgs/racket-pkgs/racket-doc/scribblings/reference/evts.scrbl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/racket-pkgs/racket-doc/scribblings/reference/evts.scrbl b/pkgs/racket-pkgs/racket-doc/scribblings/reference/evts.scrbl index 97af55b264..6ab85ed7ca 100644 --- a/pkgs/racket-pkgs/racket-doc/scribblings/reference/evts.scrbl +++ b/pkgs/racket-pkgs/racket-doc/scribblings/reference/evts.scrbl @@ -271,7 +271,7 @@ with timeouts that have not yet expired. The system-idle event's (define th (thread (λ () (let loop () (loop))))) (sync/timeout 0.1 (system-idle-evt)) (kill-thread th) - (sync (system-idle-evt)) + (eval:alts (sync (system-idle-evt)) (void)) ]}