From d93fc805f37b40db8bacbd20b980e599f86d4443 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 20 Aug 2010 16:23:57 -0500 Subject: [PATCH] maybe this will help with some of the race conditions showing up in drdr --- collects/tests/drracket/drracket-test-util.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/tests/drracket/drracket-test-util.rkt b/collects/tests/drracket/drracket-test-util.rkt index 8029bb2601..97644bd251 100644 --- a/collects/tests/drracket/drracket-test-util.rkt +++ b/collects/tests/drracket/drracket-test-util.rkt @@ -151,7 +151,8 @@ (fw:test:reraise-error) (send (send frame get-execute-button) is-enabled?))]) ;(poll-until wait-for-computation-to-start 60) ;; hm. - (poll-until wait-for-computation-to-finish 60))) + (poll-until wait-for-computation-to-finish 60) + (sync (system-idle-evt)))) (define do-execute (case-lambda