suzanne.soy/gui
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

original commit: 031a0711cfabcb5ddb53d75cb5c04e8ea1881b2f
This commit is contained in:
Robby Findler 2014-07-13 03:50:02 -05:00
parent 3d82b4a974
commit ea74e9ffe2
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?
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))
(let ([new-label (cond
[(and paths (not (null? paths))) (last paths)]