From 952ae06105fe0e0e25058b55a4774a6708aff743 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 15 Jan 2012 20:30:00 -0500 Subject: [PATCH] Minor bug fix: using a string as a path should be used as a path. Previously, they were treated as require specs, which was likely bogus. (This is unrelated to the discussion about the exists problem.) --- collects/racket/sandbox.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/racket/sandbox.rkt b/collects/racket/sandbox.rkt index 1eaf262ad7..cfd86d0c86 100644 --- a/collects/racket/sandbox.rkt +++ b/collects/racket/sandbox.rkt @@ -211,7 +211,8 @@ (define sandbox-make-logger (make-parameter current-logger)) (define (compute-permissions paths+require-perms) - (define-values [paths require-perms] (partition path? paths+require-perms)) + (define-values [paths require-perms] + (partition path-string? paths+require-perms)) (define cpaths (map path->complete-path paths)) (append (map (lambda (p) `(read ,(path->bytes p))) cpaths) ;; when reading a file from "/foo/bar/baz.rkt" racket will try to see