From ea74e9ffe2fc848784051c97899605413e797ee2 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 13 Jul 2014 03:50:02 -0500 Subject: [PATCH] use simple-form-path instead of normalize-path 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 --- pkgs/gui-pkgs/gui-lib/mrlib/name-message.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/gui-pkgs/gui-lib/mrlib/name-message.rkt b/pkgs/gui-pkgs/gui-lib/mrlib/name-message.rkt index 38d94f0b..f0f085cc 100644 --- a/pkgs/gui-pkgs/gui-lib/mrlib/name-message.rkt +++ b/pkgs/gui-pkgs/gui-lib/mrlib/name-message.rkt @@ -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)]