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

use simple-form-path instead of normalize-path

Browse Source 
in the code that decides what to put in DrRacket's pop up
menu that opens file dialogs for the subdirectories of
the place where the current file is saved

closes PR 14634
This commit is contained in:
Robby Findler 2014-07-13 03:50:02 -05:00
parent dc6382cee9
commit 031a0711cf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/gui-pkgs/gui-lib/mrlib/name-message.rkt
View File

@ -88,7 +88,7 @@
(set! paths (if (and file-name? (set! paths (if (and file-name?
path-name path-name
(file-exists? path-name)) (file-exists? path-name))
(map path->string (explode-path (normalize-path path-name))) (map path->string (explode-path (simple-form-path path-name)))
#f)) #f))
(let ([new-label (cond (let ([new-label (cond
[(and paths (not (null? paths))) (last paths)] [(and paths (not (null? paths))) (last paths)]