From a895c9618ac3fb0f3398996d826f83500df7efe2 Mon Sep 17 00:00:00 2001 From: Eric Dobson Date: Thu, 20 Jun 2013 08:56:21 -0700 Subject: [PATCH] Share typed-racket instantiation across different runs of the optimizer. original commit: b294f8d2d5eca38397554636caa4a16c75237df4 --- .../typed-racket-test/tests/typed-racket/places.rkt | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/places.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/places.rkt index 935aebe3..2dbe34e9 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/places.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/places.rkt @@ -44,6 +44,7 @@ (let loop () (match (place-channel-get get-ch) [(vector 'log name dir res) + (dynamic-require 'typed-racket/core #f) (with-handlers ([exn:fail? (λ (e) (place-channel-put res @@ -64,6 +65,8 @@ (place-channel-put res #t))) (loop)])))) +(define-namespace-anchor anchor) + (define (generate-log/place name dir) ;; some tests require other tests, so some fiddling is required (define file (simplify-path (build-path dir name))) @@ -85,4 +88,7 @@ (thunk (parameterize ([current-namespace (make-base-empty-namespace)] [current-load/use-compiled test-load/use-compiled]) + (define orig-namespace (namespace-anchor->namespace anchor)) + (namespace-attach-module orig-namespace 'racket) + (namespace-attach-module orig-namespace 'typed-racket/core) (dynamic-require file #f)))))))