set up a namespace around the call to compile

svn: r10244
2008-06-13 01:43:27 +00:00 · 2008-06-13 01:43:27 +00:00 · c2fa893403
commit c2fa893403
parent b9516aa543
1 changed files with 2 additions and 1 deletions
--- 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
                    (λ ()