suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Vincent St-Amour 2011-04-29 12:58:29 -04:00
parent 32a8da58cb
commit d9451ef4ab
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/typed-scheme/optimizer/run.rkt
View File

@ -42,9 +42,10 @@
(let ((log-string (let ((log-string
(with-output-to-string (with-output-to-string
(lambda () (lambda ()
(dynamic-require (build-path (current-load-relative-directory) (parameterize ([current-namespace (make-base-empty-namespace)])
name) (dynamic-require (build-path (current-load-relative-directory)
#f))))) name)
#f))))))
;; have the log as an sexp, since that's what the expected log is ;; have the log as an sexp, since that's what the expected log is
(with-input-from-string (string-append "(" log-string ")") (with-input-from-string (string-append "(" log-string ")")
read)))) read))))