From bd85d12125a2528cc467d6e1d5e18a36e40c3610 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 7 Sep 2007 15:55:46 +0000 Subject: [PATCH] allow writes to preferences directory svn: r7292 --- collects/slideshow/start.ss | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/collects/slideshow/start.ss b/collects/slideshow/start.ss index 9bfd18c2d6..b104204a54 100644 --- a/collects/slideshow/start.ss +++ b/collects/slideshow/start.ss @@ -50,12 +50,14 @@ (current-security-guard (make-security-guard (current-security-guard) (lambda (who what mode) - (when (memq 'write mode) - (unless (sub-path? (normal-path what) - (normal-path (find-system-path 'temp-dir))) - (error 'slideshow - "slide program attempted to write to filesystem: ~e" - what))) + (when (memq 'write mode) + (unless (or (sub-path? (normal-path what) + (normal-path (find-system-path 'temp-dir))) + (sub-path? (normal-path what) + (normal-path (find-system-path 'pref-dir)))) + (error 'slideshow + "slide program attempted to write to filesystem: ~e" + what))) (when (memq 'execute mode) (error 'slideshow "slide program attempted to execute external code: ~e"