From c2fa89340375c34ff0c0a8a78ef5c191ed4d7fc1 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 13 Jun 2008 01:43:27 +0000
Subject: [PATCH] set up a namespace around the call to compile

svn: r10244
---
 collects/lang/htdp-langs.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/lang/htdp-langs.ss b/collects/lang/htdp-langs.ss
index 4c6476fbbb..547bd6618b 100644
--- a/collects/lang/htdp-langs.ss
+++ b/collects/lang/htdp-langs.ss
@@ -753,7 +753,8 @@
                         (parameterize ([current-custodian nc])
                           (thread (λ () 
                                     (with-handlers ((exn? (λ (x) (set! exn x))))
-                                      (parameterize ([read-accept-reader #t])
+                                      (parameterize ([read-accept-reader #t]
+                                                     [current-namespace (make-base-namespace)])
                                         (compile-file filename))))))])
                    (thread
                     (λ ()