From 0c5fa7d6c5cc179f92891a959fc51a02a42cbe6f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 26 Mar 2013 00:02:22 -0500 Subject: [PATCH] relax sandbox permissions now that contract error message construction requires looking at the filesystem assuming this is the right fix, it closes PR 13634 --- collects/drracket/private/module-language.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index 522c676fa9..98bde316df 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -165,7 +165,8 @@ (when ns (current-namespace ns))) (define/private (get-ns str) - (define ev (make-evaluator 'racket/base)) + (define ev (parameterize ([sandbox-path-permissions (list (list 'exists #rx#""))]) + (make-evaluator 'racket/base))) (ev `(current-inspector ,(current-inspector))) (ev `(parameterize ([read-accept-reader #t]) (define stx (read-syntax "here" (open-input-string ,str)))