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

close fds on error

Browse Source
This commit is contained in:
Kevin Tew 2011-09-16 14:11:26 -06:00
parent a605a97132
commit fa50c780a4
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/racket/src/place.c
View File

@ -349,8 +349,10 @@ Scheme_Object *scheme_place(int argc, Scheme_Object *args[]) {
int errorno;
if (SCHEME_TRUEP(in_arg)) {
if (scheme_port_closed_p(in_arg))
if (scheme_port_closed_p(in_arg)) {
close_six_fds(rw);
scheme_arg_mismatch("dynamic-place", "port is closed: ", in_arg);
}
scheme_get_port_file_descriptor(in_arg, &tmpfd);
tmpfd = scheme_dup_file(tmpfd);
if (tmpfd == -1) {
@ -367,8 +369,10 @@ Scheme_Object *scheme_place(int argc, Scheme_Object *args[]) {
}
if (SCHEME_TRUEP(out_arg)) {
if (scheme_port_closed_p(out_arg))
if (scheme_port_closed_p(out_arg)) {
close_six_fds(rw);
scheme_arg_mismatch("dynamic-place", "port is closed: ", out_arg);
}
scheme_get_port_file_descriptor(out_arg, &tmpfd);
tmpfd = scheme_dup_file(tmpfd);
if (tmpfd == -1) {
@ -385,8 +389,10 @@ Scheme_Object *scheme_place(int argc, Scheme_Object *args[]) {
}
if (SCHEME_TRUEP(err_arg)) {
if (scheme_port_closed_p(err_arg))
if (scheme_port_closed_p(err_arg)) {
close_six_fds(rw);
scheme_arg_mismatch("dynamic-place", "port is closed: ", err_arg);
}
scheme_get_port_file_descriptor(err_arg, &tmpfd);
tmpfd = scheme_dup_file(tmpfd);
if (tmpfd == -1) {