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

relax sandbox permissions now that contract error message

Browse Source 
construction requires looking at the filesystem

assuming this is the right fix, it closes PR 13634
This commit is contained in:
Robby Findler 2013-03-26 00:02:22 -05:00
parent 55ef0e7c07
commit 0c5fa7d6c5
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/drracket/private/module-language.rkt
View File

@ -165,7 +165,8 @@
(when ns (current-namespace ns))) (when ns (current-namespace ns)))
(define/private (get-ns str) (define/private (get-ns str)
(define ev (make-evaluator 'racket/base)) (define ev (parameterize ([sandbox-path-permissions (list (list 'exists #rx#""))])
(make-evaluator 'racket/base)))
(ev `(current-inspector ,(current-inspector))) (ev `(current-inspector ,(current-inspector)))
(ev `(parameterize ([read-accept-reader #t]) (ev `(parameterize ([read-accept-reader #t])
(define stx (read-syntax "here" (open-input-string ,str))) (define stx (read-syntax "here" (open-input-string ,str)))