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

Remove registry box from optimizer tests.

Browse Source 
original commit: ba3c8053226ec8048b81517019efd39c8fe3808e
This commit is contained in:
Eric Dobson 2013-06-19 21:28:01 -07:00
parent a67be4b7be
commit 582fc7ad95
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/places.rkt
View File

@ -33,16 +33,14 @@
[(s-exn m)
(exn m (current-continuation-marks))]))
(define (dr p [reg-box #f])
(define (dr p)
(parameterize ([current-namespace (make-base-empty-namespace)])
(dynamic-require `(file ,(if (string? p) p (path->string p))) #f)
(and reg-box (set-box! reg-box (namespace-module-registry (current-namespace))))))
(dynamic-require `(file ,(if (string? p) p (path->string p))) #f)))
(define (start-worker get-ch name)
(define verb (verbose?))
(open-place ch
(define reg (box #f))
(let loop ()
(match (place-channel-get get-ch)
[(vector 'log name dir res)
@ -50,7 +48,7 @@
(λ (e) (place-channel-put
res
(string-append "EXCEPTION: " (exn-message e))))])
(define lg (generate-log/place name dir reg))
(define lg (generate-log/place name dir))
(place-channel-put res lg))
(loop)]
[(vector p* res error?)
@ -62,13 +60,13 @@
[current-directory path]
[current-output-port (open-output-nowhere)]
[error-display-handler (if error? void (error-display-handler))])
(dr p reg)
(dr p)
(place-channel-put res #t)))
(loop)]))))
(define comp (compile-zos #f #:module? #t))
(define (generate-log/place name dir [reg-box #f])
(define (generate-log/place name dir)
;; some tests require other tests, so some fiddling is required
(define f (build-path dir name))
(with-output-to-string
@ -80,7 +78,6 @@
(parameterize
([current-namespace (make-base-empty-namespace)]
[current-load-relative-directory dir])
(dynamic-require f #f)
(and reg-box (set-box! reg-box (namespace-module-registry (current-namespace)))))
(dynamic-require f #f))
;; clean up compiled files in prevision of the next testing run
(delete-directory/files (build-path dir "compiled")))))