maybe this will help with some of the race conditions showing up in drdr

2010-08-20 16:23:57 -05:00 · 2010-08-20 16:23:57 -05:00 · d93fc805f3
commit d93fc805f3
parent 7f4aa41aac
1 changed files with 2 additions and 1 deletions
--- 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