From a2ef8a5aaef1610f1c941de55525327c9690b648 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 15 Dec 2008 02:24:32 +0000 Subject: [PATCH] allow 'exists access to addon directory svn: r12847 --- collects/scheme/sandbox.ss | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/scheme/sandbox.ss b/collects/scheme/sandbox.ss index 64f89865a0..b8413d0818 100644 --- a/collects/scheme/sandbox.ss +++ b/collects/scheme/sandbox.ss @@ -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