Fixing output port

original commit: b4cc683f0822b23eb25860e3376228439d743c4c
This commit is contained in:
Jay McCarthy 2010-06-28 19:58:18 -06:00
parent 8eee85b8bb
commit b565ef8d31

View File

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