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

remove a use of normal-case-path

Browse Source 
closes PR 6086
This commit is contained in:
Robby Findler 2013-03-02 20:35:44 -06:00
parent 855ce453a0
commit be0e32b224
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -47,7 +47,7 @@
(default-extension) style (default-filters) (default-extension) style (default-filters)
#:dialog-mixin frame:focus-table-mixin)]) #:dialog-mixin frame:focus-table-mixin)])
(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 (simple-form-path f))] (let* ([f (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