svn: r1079
This commit is contained in:
Robby Findler 2005-10-14 03:48:45 +00:00
parent e1529f3969
commit 78624dd286

View File

@ -1095,8 +1095,7 @@ TODO
(parameterize ([current-eventspace (get-user-eventspace)])
(queue-callback
(λ ()
(parameterize ([current-error-port drscheme:init:original-output-port])
(thnk))
(thnk)
(semaphore-post wait))))
(semaphore-wait wait)))])