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

allow 'exists access to addon directory

Browse Source 
svn: r12847
This commit is contained in:
Eli Barzilay 2008-12-15 02:24:32 +00:00
parent c62595772f
commit a2ef8a5aae
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/scheme/sandbox.ss
View File

@ -737,10 +737,11 @@
(append (sandbox-override-collection-paths)
(current-library-collection-paths)))]
[sandbox-path-permissions
(append (map (lambda (p) `(read-bytecode ,p))
(current-library-collection-paths))
(compute-permissions allow)
(sandbox-path-permissions))]
`(,@(map (lambda (p) `(read-bytecode ,p))
(current-library-collection-paths))
(exists ,(find-system-path 'addon-dir))
,@(compute-permissions allow)
,@(sandbox-path-permissions))]
;; general info
[current-command-line-arguments '#()]
;; restrict the sandbox context from this point