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

prefs no longer ok

Browse Source 
svn: r7371
This commit is contained in:
Robby Findler 2007-09-17 18:49:35 +00:00
parent eee752fde1
commit fae2462619
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/slideshow/start.ss
View File

@ -53,10 +53,7 @@
(lambda (who what mode) (lambda (who what mode)
(when (memq 'write mode) (when (memq 'write mode)
(unless (let ([np-what (normal-path what)]) (unless (let ([np-what (normal-path what)])
(or (sub-path? np-what (or (sub-path? np-what (normal-path (find-system-path 'temp-dir)))
(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))))) (equal? np-what (normal-path (LINKAGE-FILE)))))
(error 'slideshow (error 'slideshow
"slide program attempted to write to filesystem: ~e" "slide program attempted to write to filesystem: ~e"