use path-element where needed

svn: r4838
2006-11-13 19:15:55 +00:00 · 2006-11-13 19:15:55 +00:00 · ed575e9e03
commit ed575e9e03
parent 9d04d4dcfc
1 changed files with 11 additions and 9 deletions
--- a/collects/mzlib/file.ss
+++ b/collects/mzlib/file.ss
@ -355,15 +355,17 @@
                                   base)])
                        (unless (directory-exists? dir)
                          (make-directory* dir))
-                        (values filename
-                                (build-path dir (bytes->path
-                                                 (bytes-append
-                                                  (if (eq? 'windows (system-type))
-                                                    #"_"
-                                                    #".")
-                                                  #"LOCK"
-                                                  (path->bytes name))))
-                                dir))))])
+                        (values
+                         filename
+                         (build-path dir
+                                     (bytes->path-element
+                                      (bytes-append
+                                       (if (eq? 'windows (system-type))
+                                         #"_"
+                                         #".")
+                                       #"LOCK"
+                                       (path-element->bytes name))))
+                         dir))))])
      (with-handlers ([exn:fail:filesystem:exists?
                       (lambda (x)
                         (if lock-there