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

set up a namespace around the call to compile

Browse Source 
svn: r10244
This commit is contained in:
Robby Findler 2008-06-13 01:43:27 +00:00
parent b9516aa543
commit c2fa893403
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/lang/htdp-langs.ss
View File

@ -753,7 +753,8 @@
(parameterize ([current-custodian nc]) (parameterize ([current-custodian nc])
(thread (λ () (thread (λ ()
(with-handlers ((exn? (λ (x) (set! exn x)))) (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))))))]) (compile-file filename))))))])
(thread (thread
(λ () (λ ()