From b1aee1500463fe214bfe0f6a7ff14116a3ee5b52 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 12 Nov 2008 05:36:52 +0000 Subject: [PATCH] improve bad access error (PR9901) svn: r12403 --- collects/scheme/sandbox.ss | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/scheme/sandbox.ss b/collects/scheme/sandbox.ss index 330e1aa6f3..b377f025b5 100644 --- a/collects/scheme/sandbox.ss +++ b/collects/scheme/sandbox.ss @@ -1,6 +1,7 @@ #lang scheme/base (require scheme/port + scheme/list syntax/moddep scheme/gui/dynamic) @@ -129,7 +130,10 @@ (and (perm<=? needed (car perm)) (regexp-match (cadr perm) bpath))) (sandbox-path-permissions)) - (error what "file access denied ~a" (cons path modes)))))) + (error what "~a access denied for ~a" + (apply string-append + (add-between (map symbol->string modes) "+")) + path))))) (lambda args (apply (sandbox-network-guard) args))))) (define sandbox-security-guard (make-parameter default-sandbox-guard))