From 68239410804b13f16dfddc290e7ada4eb95e9b6e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 26 Aug 2011 09:30:31 -0500 Subject: [PATCH] adjust framework get and put file functions to use simple-form-path instead of normalize-path (I'm unsure of the ramifications of this change ...) --- collects/framework/private/finder.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/finder.rkt b/collects/framework/private/finder.rkt index a95b44cbb8..8b5675e986 100644 --- a/collects/framework/private/finder.rkt +++ b/collects/framework/private/finder.rkt @@ -46,7 +46,7 @@ [f (put-file prompt parent-win directory name (default-extension) style (default-filters))]) (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)] [name (file-name-from-path f)]) (cond @@ -77,7 +77,7 @@ (message-box (string-constant error) (string-constant file-dne)) #f] - [else (normalize-path f)]))))) + [else (simple-form-path f)]))))) (define-syntax-rule (define/rename id exp)