Run optimizer tests in a throw-away namespace to reduce memory usage.

original commit: d9451ef4abb6e44ad6a47c76d07adcfe142dc43e
2011-04-29 12:58:29 -04:00 · 2011-04-29 12:58:29 -04:00 · c8313ec1ac
commit c8313ec1ac
parent acf8e410c8
1 changed files with 4 additions and 3 deletions
--- a/collects/tests/typed-scheme/optimizer/run.rkt
+++ b/collects/tests/typed-scheme/optimizer/run.rkt
@ -42,9 +42,10 @@
    (let ((log-string
           (with-output-to-string
             (lambda ()
-               (dynamic-require (build-path (current-load-relative-directory)
-                                            name)
-                                #f)))))
+               (parameterize ([current-namespace (make-base-empty-namespace)])
+                 (dynamic-require (build-path (current-load-relative-directory)
+                                              name)
+                                  #f))))))
      ;; have the log as an sexp, since that's what the expected log is
      (with-input-from-string (string-append "(" log-string ")")
        read))))