Fixing output port

This commit is contained in:
Jay McCarthy 2010-06-28 19:58:18 -06:00
parent e78b5d722e
commit b4cc683f08

View File

@ -19,6 +19,7 @@
"eval.rkt") "eval.rkt")
(define-runtime-path racket-mod "racket.rkt") (define-runtime-path racket-mod "racket.rkt")
(define stdout (current-output-port))
(run-tests (run-tests
(test-suite (test-suite
@ -40,4 +41,5 @@
eval-tests eval-tests
(test-case "Racket Interop" (test-case "Racket Interop"
(dynamic-require racket-mod #f)))) (parameterize ([current-output-port stdout])
(dynamic-require racket-mod #f)))))