suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

formatting

Browse Source 
svn: r12840
This commit is contained in:
Eli Barzilay 2008-12-13 22:45:35 +00:00
parent 39a69b30fd
commit 5ab0de415d
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/scheme/sandbox.ss
View File

@ -106,16 +106,16 @@
[suffix-re (bytes-append #"(?:$|" sep-re #")")]) [suffix-re (bytes-append #"(?:$|" sep-re #")")])
(lambda (path) (lambda (path)
(if (byte-regexp? path) (if (byte-regexp? path)
path path
(let* ([path (path->bytes (simplify-path* path))] (let* ([path (path->bytes (simplify-path* path))]
[path (regexp-quote (regexp-replace last-sep path #""))]) [path (regexp-quote (regexp-replace last-sep path #""))])
(byte-regexp (bytes-append #"^" path suffix-re))))))) (byte-regexp (bytes-append #"^" path suffix-re)))))))
(define sandbox-path-permissions (define sandbox-path-permissions
(make-parameter '() (make-parameter '()
(lambda (new) (lambda (new)
(map (lambda (perm) (cons (car perm) (map path->bregexp (cdr perm)))) (map (lambda (perm) (cons (car perm) (map path->bregexp (cdr perm))))
new)))) new))))
(define sandbox-network-guard (define sandbox-network-guard
(make-parameter (lambda (what . xs) (make-parameter (lambda (what . xs)