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

typo in the last commit

Browse Source 
svn: r12832
This commit is contained in:
Eli Barzilay 2008-12-13 17:18:40 +00:00
parent 46e16fc206
commit bd01cda595
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scheme/sandbox.ss
View File

@ -119,7 +119,8 @@
(make-parameter (lambda (what . xs)
(error what "network access denied: ~e" xs))))
(define (make-default-sandbox-guard orig-security)
(define (make-default-sandbox-guard)
(let ([orig-security (current-security-guard)])
(make-security-guard
orig-security
(lambda (what path modes)
@ -139,7 +140,7 @@
(error what "`~a' access denied for ~a"
(string-append* (add-between (map symbol->string modes) "+"))
path)))))
(lambda args (apply (sandbox-network-guard) args))))
(lambda args (apply (sandbox-network-guard) args)))))
(define sandbox-security-guard
(make-parameter make-default-sandbox-guard