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

enclosure filename might have path separators

Browse Source 
svn: r4395
This commit is contained in:
Matthew Flatt 2006-09-20 08:28:24 +00:00
parent 3a16b5d5f5
commit ed8eef79a9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/sirmail/readr.ss
View File

@ -2515,7 +2515,11 @@
(send t change-style url-delta s e)))
(when (eq? (system-type) 'macosx)
(when fn
(let ([full-fn (normalize-path (build-path "~/Desktop" fn))])
(let ([full-fn (if (and (path-string? fn)
(let-values ([(base name dir?) (split-path fn)])
(not base)))
(normalize-path (build-path "~/Desktop" fn))
fn)])
(insert " " set-standard-style)
(insert "[save & open]"
(lambda (t s e)