maybe this will help with some of the race conditions showing up in drdr
This commit is contained in:
parent
7f4aa41aac
commit
d93fc805f3
|
@ -151,7 +151,8 @@
|
||||||
(fw:test:reraise-error)
|
(fw:test:reraise-error)
|
||||||
(send (send frame get-execute-button) is-enabled?))])
|
(send (send frame get-execute-button) is-enabled?))])
|
||||||
;(poll-until wait-for-computation-to-start 60) ;; hm.
|
;(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
|
(define do-execute
|
||||||
(case-lambda
|
(case-lambda
|
||||||
|
|
Loading…
Reference in New Issue
Block a user