suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use path-element where needed

Browse Source 
svn: r4838
This commit is contained in:
Eli Barzilay 2006-11-13 19:15:55 +00:00
parent 9d04d4dcfc
commit ed575e9e03
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/mzlib/file.ss
View File

@ -355,15 +355,17 @@
base)]) base)])
(unless (directory-exists? dir) (unless (directory-exists? dir)
(make-directory* dir)) (make-directory* dir))
(values filename (values
(build-path dir (bytes->path filename
(bytes-append (build-path dir
(if (eq? 'windows (system-type)) (bytes->path-element
#"_" (bytes-append
#".") (if (eq? 'windows (system-type))
#"LOCK" #"_"
(path->bytes name)))) #".")
dir))))]) #"LOCK"
(path-element->bytes name))))
dir))))])
(with-handlers ([exn:fail:filesystem:exists? (with-handlers ([exn:fail:filesystem:exists?
(lambda (x) (lambda (x)
(if lock-there (if lock-there