fix a race (suggested by drdr test results)

2011-09-26 06:08:58 -05:00 · 2011-09-26 06:08:58 -05:00 · ae34e1a960
commit ae34e1a960
parent 09b0a46dcd
1 changed files with 4 additions and 2 deletions
--- 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)))