diff --git a/pkgs/drracket-pkgs/drracket-test/tests/drracket/io.rkt b/pkgs/drracket-pkgs/drracket-test/tests/drracket/io.rkt index fcceede56d..4935a78098 100644 --- a/pkgs/drracket-pkgs/drracket-test/tests/drracket/io.rkt +++ b/pkgs/drracket-pkgs/drracket-test/tests/drracket/io.rkt @@ -94,15 +94,15 @@ add this test: (display 1 (current-output-port)) (semaphore-post s))) (semaphore-wait s))) - (list (list "1" output-style) - prompt)) + (list (list "1" output-style) + prompt)) (check-output (format "~s" '(let ([s (make-semaphore)]) (thread (lambda () (display 1 (current-error-port)) (semaphore-post s))) - (semaphore-wait s)))) - (list (list "1" error-style) - prompt))) + (semaphore-wait s))) + (list (list "1" error-style) + prompt))) (define (long-io/execute-test) (let ([string-port (open-output-string)])