From fae2462619bd03e6181fff597d2fa5f4676ec55a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 17 Sep 2007 18:49:35 +0000 Subject: [PATCH] prefs no longer ok svn: r7371 --- collects/slideshow/start.ss | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/collects/slideshow/start.ss b/collects/slideshow/start.ss index 13c932cd40..a56778ff3d 100644 --- a/collects/slideshow/start.ss +++ b/collects/slideshow/start.ss @@ -53,16 +53,13 @@ (lambda (who what mode) (when (memq 'write mode) (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))) + (or (sub-path? np-what (normal-path (find-system-path 'temp-dir))) (equal? np-what (normal-path (LINKAGE-FILE))))) (error 'slideshow "slide program attempted to write to filesystem: ~e" what))) (when (memq 'execute mode) - (error 'slideshow + (error 'slideshow "slide program attempted to execute external code: ~e" what))) (lambda (who where-name where-port-num mode)