racket/gui win32: atomicity repair
This commit is contained in:
parent
977fd37913
commit
7291e1a24d
|
@ -154,6 +154,6 @@
|
||||||
(wrap-evt (system-idle-evt)
|
(wrap-evt (system-idle-evt)
|
||||||
(lambda (v) #f))
|
(lambda (v) #f))
|
||||||
boundary-tasks-ready-evt)))
|
boundary-tasks-ready-evt)))
|
||||||
(pre-event-sync #t))
|
(atomically (pre-event-sync #t)))
|
||||||
(as-entry dispatch-all-ready)
|
(as-entry dispatch-all-ready)
|
||||||
(loop)))))
|
(loop)))))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user