From ae34e1a9604a5dcd60b8170d52e7c1fcab6ae07c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 26 Sep 2011 06:08:58 -0500 Subject: [PATCH] fix a race (suggested by drdr test results) --- collects/tests/drracket/teaching-lang-save-file.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/tests/drracket/teaching-lang-save-file.rkt b/collects/tests/drracket/teaching-lang-save-file.rkt index 4856656572..ace1e8a172 100644 --- a/collects/tests/drracket/teaching-lang-save-file.rkt +++ b/collects/tests/drracket/teaching-lang-save-file.rkt @@ -18,8 +18,10 @@ (set-language-level! (list #rx"How to Design Programs" #rx"Beginning Student$")) (clear-definitions drr-frame) - (send definitions-text set-filename fn) - (send definitions-text insert "(define (f x) x)\n(f 1)\n") + (queue-callback/res + (λ () + (send definitions-text set-filename fn) + (send definitions-text insert "(define (f x) x)\n(f 1)\n"))) (test:menu-select "File" "Save Definitions") (unless (call-with-input-file fn (λ (p) (regexp-match #rx";;[^\n]*metadata" p)))