From 5ab0de415d0d7f29b3dbe925396d917523d21c4b Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 13 Dec 2008 22:45:35 +0000 Subject: [PATCH] formatting svn: r12840 --- collects/scheme/sandbox.ss | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/collects/scheme/sandbox.ss b/collects/scheme/sandbox.ss index ff7cbb02c8..9225fd5fc7 100644 --- a/collects/scheme/sandbox.ss +++ b/collects/scheme/sandbox.ss @@ -106,16 +106,16 @@ [suffix-re (bytes-append #"(?:$|" sep-re #")")]) (lambda (path) (if (byte-regexp? path) - path - (let* ([path (path->bytes (simplify-path* path))] - [path (regexp-quote (regexp-replace last-sep path #""))]) - (byte-regexp (bytes-append #"^" path suffix-re))))))) + path + (let* ([path (path->bytes (simplify-path* path))] + [path (regexp-quote (regexp-replace last-sep path #""))]) + (byte-regexp (bytes-append #"^" path suffix-re))))))) (define sandbox-path-permissions (make-parameter '() - (lambda (new) - (map (lambda (perm) (cons (car perm) (map path->bregexp (cdr perm)))) - new)))) + (lambda (new) + (map (lambda (perm) (cons (car perm) (map path->bregexp (cdr perm)))) + new)))) (define sandbox-network-guard (make-parameter (lambda (what . xs)