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

fix Windows narrow-path uses

Browse Source
This commit is contained in:
Matthew Flatt 2010-07-06 06:00:10 -06:00
parent c4cb424700
commit 43e9e930d8
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/racket/src/port.c
View File

@ -4155,14 +4155,14 @@ scheme_do_open_output_file(char *name, int offset, int argc, Scheme_Object *argv
err = GetLastError();
if ((err == ERROR_ACCESS_DENIED) && (existsok < -1)) {
/* Delete and try again... */
if (DeleteFile(filename)) {
fd = CreateFile(filename,
GENERIC_WRITE,
FILE_SHARE_READ | FILE_SHARE_WRITE,
NULL,
hmode,
0,
NULL);
if (DeleteFileW(WIDE_PATH(filename))) {
fd = CreateFileW(WIDE_PATH(filename),
GENERIC_WRITE,
FILE_SHARE_READ | FILE_SHARE_WRITE,
NULL,
hmode,
0,
NULL);
if (fd == INVALID_HANDLE_VALUE)
err = GetLastError();
} else {