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

Fixed version of b9bd1db5.

Browse Source
This commit is contained in:
Eli Barzilay 2011-11-04 19:24:38 -04:00
parent 6a996b3eb7
commit 8cbb867811
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/racket/sandbox.rkt
View File

@ -878,7 +878,6 @@
(;; create a sandbox context first (;; create a sandbox context first
[current-custodian user-cust] [current-custodian user-cust]
[current-thread-group (make-thread-group)] [current-thread-group (make-thread-group)]
[current-namespace (make-evaluation-namespace)]
;; set up the IO context ;; set up the IO context
[current-input-port [current-input-port
(let ([inp (sandbox-input)]) (let ([inp (sandbox-input)])
@ -917,6 +916,8 @@
[current-logger ((sandbox-make-logger))] [current-logger ((sandbox-make-logger))]
[current-inspector ((sandbox-make-inspector))] [current-inspector ((sandbox-make-inspector))]
[current-code-inspector ((sandbox-make-code-inspector))] [current-code-inspector ((sandbox-make-code-inspector))]
;; Create the namespace under the restricted code inspector
[current-namespace (make-evaluation-namespace)]
;; The code inspector serves two purposes -- making sure that only trusted ;; The code inspector serves two purposes -- making sure that only trusted
;; byte-code is loaded, and avoiding using protected module bindings, like ;; byte-code is loaded, and avoiding using protected module bindings, like
;; the foreign library's `unsafe!'. We control the first through the path ;; the foreign library's `unsafe!'. We control the first through the path