From fbcada2045aa2f1156a08d3b0ee6a29069203871 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 22 May 2014 14:32:47 -0500 Subject: [PATCH] fix mangling of drracket io test --- pkgs/drracket-pkgs/drracket-test/tests/drracket/io.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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)])