From 733d6b97ff129b9ac536c3d9dc20429c64822850 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 26 Aug 2011 12:33:24 -0600
Subject: [PATCH] make libs dir to readable by default for sandboxed code

One example use is the handin server, where the ssl library
is needed to run some programs in my class. (I didn't figure
out exactly why, but it seems reasonable.)
---
 collects/racket/sandbox.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/racket/sandbox.rkt b/collects/racket/sandbox.rkt
index 0fb9aa9106..990d4176d9 100644
--- a/collects/racket/sandbox.rkt
+++ b/collects/racket/sandbox.rkt
@@ -6,7 +6,8 @@
          racket/string
          syntax/moddep
          racket/gui/dynamic
-         planet/config)
+         planet/config
+         setup/dirs)
 
 (provide gui?
          sandbox-init-hook
@@ -891,6 +892,7 @@
        (read-bytecode ,(PLANET-BASE-DIR))
        (exists ,(find-system-path 'addon-dir))
        (read ,(find-system-path 'links-file))
+       (read ,(find-lib-dir))
        ,@(compute-permissions allow)
        ,@(sandbox-path-permissions))]
     ;; general info