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

fixes for Windows related to missing-module exceptions

Browse Source
This commit is contained in:
Matthew Flatt 2013-04-24 12:53:38 -06:00
parent ebd7ebea4f
commit 749c0842a8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4987,7 +4987,7 @@ scheme_do_open_output_file(char *name, int offset, int argc, Scheme_Object *argv
*err = "cannot open destination"; *err = "cannot open destination";
*eerrno = errv; *eerrno = errv;
} else } else
filename_exn(name, "cannot open output file", filename, errv); filename_exn(name, "cannot open output file", filename, errv, 0);
return NULL; return NULL;
} }
} }
@ -5007,7 +5007,7 @@ scheme_do_open_output_file(char *name, int offset, int argc, Scheme_Object *argv
if ((mode[1] == 't') && !regfile) { if ((mode[1] == 't') && !regfile) {
CloseHandle(fd); CloseHandle(fd);
filename_exn(name, "cannot use text-mode on a non-file device", filename, 0); filename_exn(name, "cannot use text-mode on a non-file device", filename, 0, 0);
return NULL; return NULL;
} }
@ -5031,7 +5031,7 @@ scheme_do_open_output_file(char *name, int offset, int argc, Scheme_Object *argv
" path: %q", " path: %q",
name, filename); name, filename);
else else
filename_exn(name, "cannot open directory as a file", filename, errno); filename_exn(name, "cannot open directory as a file", filename, errno, 0);
return NULL; return NULL;
} }