From eee752fde11227c14303fe2f3311ccb0b0b273a3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 17 Sep 2007 18:24:56 +0000 Subject: [PATCH] allow LINKAGE file to be written to svn: r7370 --- collects/slideshow/start.ss | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/collects/slideshow/start.ss b/collects/slideshow/start.ss index b104204a54..13c932cd40 100644 --- a/collects/slideshow/start.ss +++ b/collects/slideshow/start.ss @@ -1,8 +1,9 @@ (module start "slideshow.ss" (require "start-param.ss" + (lib "config.ss" "planet") (lib "mred.ss" "mred") - (lib "class.ss")) + (lib "class.ss")) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Path utilities @@ -51,10 +52,12 @@ (make-security-guard (current-security-guard) (lambda (who what mode) (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)))) + (unless (let ([np-what (normal-path what)]) + (or (sub-path? np-what + (normal-path (find-system-path 'temp-dir))) + (sub-path? np-what + (normal-path (find-system-path 'pref-dir))) + (equal? np-what (normal-path (LINKAGE-FILE))))) (error 'slideshow "slide program attempted to write to filesystem: ~e" what)))