don't evaluate (sync (system-idle-evt)) since it might not

come true in a parallel build Thanks to Asumu for spotting this.
2013-08-19 23:36:32 -05:00 · 2013-08-19 23:36:32 -05:00 · 5b7532c864
commit 5b7532c864
parent 940ccc8b5c
1 changed files with 1 additions and 1 deletions
--- 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))
 ]}