Fixing output port

2010-06-28 19:58:18 -06:00 · 2010-06-28 19:58:18 -06:00 · b4cc683f08
commit b4cc683f08
parent e78b5d722e
1 changed files with 3 additions and 1 deletions
--- a/collects/tests/datalog/main.rkt
+++ b/collects/tests/datalog/main.rkt
@ -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)))))