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

adjust framework get and put file functions to use simple-form-path instead

Browse Source 
of normalize-path (I'm unsure of the ramifications of this change ...)
This commit is contained in:
Robby Findler 2011-08-26 09:30:31 -05:00
parent 1d13d1399c
commit 6823941080
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/finder.rkt
View File

@ -46,7 +46,7 @@
[f (put-file prompt parent-win directory name [f (put-file prompt parent-win directory name
(default-extension) style (default-filters))]) (default-extension) style (default-filters))])
(and f (or (not filter) (filter-match? filter f filter-msg)) (and f (or (not filter) (filter-match? filter f filter-msg))
(let* ([f (normal-case-path (normalize-path f))] (let* ([f (normal-case-path (simple-form-path f))]
[dir (path-only f)] [dir (path-only f)]
[name (file-name-from-path f)]) [name (file-name-from-path f)])
(cond (cond
@ -77,7 +77,7 @@
(message-box (string-constant error) (message-box (string-constant error)
(string-constant file-dne)) (string-constant file-dne))
#f] #f]
[else (normalize-path f)]))))) [else (simple-form-path f)])))))
(define-syntax-rule (define-syntax-rule
(define/rename id exp) (define/rename id exp)