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

racket/sandbox: allow read of pkg- and config-table files

Browse Source
This commit is contained in:
Matthew Flatt 2013-08-19 14:47:27 -06:00
parent 31c7101ec7
commit aa6a11a8aa
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/sandbox-lib/racket/sandbox.rkt
View File

@ -940,9 +940,13 @@
,@(for/list ([l (current-library-collection-links)]
#:when (path? l))
`(read ,l))
,@(for/list ([l (get-pkgs-search-dirs)])
`(read ,(build-path l "pkgs.rktd")))
(read ,(build-path (find-user-pkgs-dir) "pkgs.rktd"))
(read-bytecode ,(PLANET-BASE-DIR))
(exists ,(find-system-path 'addon-dir))
(read ,(find-lib-dir))
(read ,(build-path (find-config-dir) "config.rktd"))
,@(compute-permissions allow-for-require allow-for-load)
,@(sandbox-path-permissions))]
;; restrict the sandbox context from this point