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

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

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