From 582fc7ad95fc2cf33dc3c377ce2314a9bbd5f610 Mon Sep 17 00:00:00 2001
From: Eric Dobson <eric.n.dobson@gmail.com>
Date: Wed, 19 Jun 2013 21:28:01 -0700
Subject: [PATCH] Remove registry box from optimizer tests.

original commit: ba3c8053226ec8048b81517019efd39c8fe3808e
---
 .../tests/typed-racket/places.rkt                 | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

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 1e1b9da2..ad7d3a69 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
@@ -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")))))