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

fix sandbox permissions on "links.rktd" files

Browse Source
This commit is contained in:
Matthew Flatt 2013-07-21 19:54:59 -06:00
parent 03c7cfdc42
commit 8c239a6370
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -941,7 +941,8 @@
(exists ,(find-system-path 'addon-dir)) (exists ,(find-system-path 'addon-dir))
(read ,(build-path (find-system-path 'addon-dir) "links.rktd")) (read ,(build-path (find-system-path 'addon-dir) "links.rktd"))
(read ,(build-path (find-system-path 'addon-dir) (version) "links.rktd")) (read ,(build-path (find-system-path 'addon-dir) (version) "links.rktd"))
(read ,(build-path (find-config-dir) "links.rktd")) ,@(for/list ([f (get-links-search-files)])
`(read ,f))
(read ,(find-lib-dir)) (read ,(find-lib-dir))
,@(compute-permissions allow-for-require allow-for-load) ,@(compute-permissions allow-for-require allow-for-load)
,@(sandbox-path-permissions))] ,@(sandbox-path-permissions))]