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

allow LINKAGE file to be written to

Browse Source 
svn: r7370
This commit is contained in:
Robby Findler 2007-09-17 18:24:56 +00:00
parent eca198d009
commit eee752fde1
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/slideshow/start.ss
View File

@ -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)))