From 9450d0ec45234be62dafa8a1968819b113bb5539 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 20 Oct 2006 17:19:54 +0000 Subject: [PATCH] now using path-element functions in some places svn: r4662 original commit: 8ccef02233a4101d33667f8a7328917b3c845463 --- collects/framework/private/path-utils.ss | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/collects/framework/private/path-utils.ss b/collects/framework/private/path-utils.ss index aef07119..f81b52a7 100644 --- a/collects/framework/private/path-utils.ss +++ b/collects/framework/private/path-utils.ss @@ -14,7 +14,7 @@ (if name (split-path name) (values (find-system-path 'doc-dir) - (bytes->path #"mredauto") + (bytes->path-element #"mredauto") #f))]) (let* ([base (if (path? base) base @@ -27,15 +27,15 @@ [new-name (build-path path (if (eq? (system-type) 'windows) - (bytes->path + (bytes->path-element (bytes-append (regexp-replace #rx#"\\..*$" - (path->bytes name) + (path-element->bytes name) #"") #"." numb)) - (bytes->path + (bytes->path-element (bytes-append #"#" - (path->bytes name) + (path-element->bytes name) #"#" numb #"#"))))]) @@ -48,15 +48,15 @@ (let ([base (if (path? pre-base) pre-base (current-directory))]) - (let ([name-bytes (path->bytes name)]) + (let ([name-bytes (path-element->bytes name)]) (cond [(and (eq? (system-type) 'windows) (regexp-match #rx#"(.*)\\.[^.]*" name-bytes)) => (λ (m) - (build-path base (bytes->path (bytes-append (cadr m) #".bak"))))] + (build-path base (bytes->path-element (bytes-append (cadr m) #".bak"))))] [(eq? (system-type) 'windows) - (build-path base (bytes->path (bytes-append name-bytes #".bak")))] + (build-path base (bytes->path-element (bytes-append name-bytes #".bak")))] [else - (build-path base (bytes->path (bytes-append name-bytes #"~")))])))))))) + (build-path base (bytes->path-element (bytes-append name-bytes #"~")))]))))))))