fix 'can-update for Windows

svn: r9527
This commit is contained in:
Matthew Flatt 2008-04-29 00:24:24 +00:00
parent e5fba85ed0
commit 3c9a4a284a

View File

@ -3864,7 +3864,7 @@ scheme_do_open_output_file(char *name, int offset, int argc, Scheme_Object *argv
} else if (existsok == 2) {
hmode = OPEN_EXISTING;
} else if (existsok == 3) {
hmode = CREATE_NEW;
hmode = OPEN_ALWAYS;
}
fd = CreateFileW(WIDE_PATH(filename),