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

fix error message that is misleading on some platforms

Browse Source 
Closes PR 10049
This commit is contained in:
Matthew Flatt 2011-11-27 17:35:06 -07:00
parent a04272d245
commit d607189035
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4732,12 +4732,12 @@ scheme_do_open_output_file(char *name, int offset, int argc, Scheme_Object *argv
if (fd == -1) {
if (errno == EISDIR) {
if (err) {
*err = "destination exists as a directory";
*err = "destination is a directory path";
*eerrno = errno;
return NULL;
} else
scheme_raise_exn(MZEXN_FAIL_FILESYSTEM_EXISTS,
"%s: \"%q\" exists as a directory",
"%s: \"%q\" is a directory path",
name, filename);
} else if (errno == EEXIST) {
if (!existsok) {
@ -4851,7 +4851,7 @@ scheme_do_open_output_file(char *name, int offset, int argc, Scheme_Object *argv
if (info.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) {
CloseHandle(fd);
scheme_raise_exn(MZEXN_FAIL_FILESYSTEM_EXISTS,
"%s: \"%q\" exists as a directory",
"%s: \"%q\" is a directory path",
name, filename);
return NULL;
}
@ -4877,11 +4877,11 @@ scheme_do_open_output_file(char *name, int offset, int argc, Scheme_Object *argv
# else
if (scheme_directory_exists(filename)) {
if (err) {
*err = "destination exists as a directory";
*err = "destination is a directory path";
*eerrno = 0;
} else if (!existsok)
scheme_raise_exn(MZEXN_FAIL_FILESYSTEM_EXISTS,
"%s: \"%q\" exists as a directory",
"%s: \"%q\" is a directory path",
name, filename);
else
filename_exn(name, "cannot open directory as a file", filename, errno);