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

.

Browse Source 
original commit: 2d52cbf9e7cf7c65d56c36a9863195e21fe35478
This commit is contained in:
Matthew Flatt 2003-07-20 14:43:36 +00:00
parent 020bde3421
commit 23d540da8b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mzlib/file.ss
View File

@ -375,7 +375,11 @@
(current-directory)
base)])
(values filename
(build-path dir (format ".LOCK~a" name))
(build-path dir (format "~aLOCK~a"
(if (eq? 'windows (system-type))
"_"
".")
name))
dir))))])
(with-handlers ([(lambda (x)
(and (exn:i/o:filesystem? x)