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

add quotes

Browse Source 
svn: r12404
This commit is contained in:
Eli Barzilay 2008-11-12 05:37:52 +00:00
parent b1aee15004
commit d9b4e619eb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scheme/sandbox.ss
View File

@ -130,7 +130,7 @@
(and (perm<=? needed (car perm)) (and (perm<=? needed (car perm))
(regexp-match (cadr perm) bpath))) (regexp-match (cadr perm) bpath)))
(sandbox-path-permissions)) (sandbox-path-permissions))
(error what "~a access denied for ~a" (error what "`~a' access denied for ~a"
(apply string-append (apply string-append
(add-between (map symbol->string modes) "+")) (add-between (map symbol->string modes) "+"))
path))))) path)))))