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

place ports are not regular files and should not be in text mode

Browse Source
This commit is contained in:
Matthew Flatt 2011-09-16 07:05:58 -06:00
parent 50bd8c6153
commit 5f21abbaf3
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -432,21 +432,21 @@ Scheme_Object *scheme_place(int argc, Scheme_Object *args[]) {
Scheme_Object *tmpport;
a[0] = (Scheme_Object *) place;
if (rw[1] >= 0) {
tmpport = scheme_make_fd_output_port(rw[1], scheme_intern_symbol("place-in"), 1, 1, 0);
tmpport = scheme_make_fd_output_port(rw[1], scheme_intern_symbol("place-in"), 0, 0, 0);
a[1] = tmpport;
}
else
a[1] = scheme_false;
if (rw[2] >= 0) {
tmpport = scheme_make_fd_input_port(rw[2], scheme_intern_symbol("place-out"), 1, 1);
tmpport = scheme_make_fd_input_port(rw[2], scheme_intern_symbol("place-out"), 0, 0);
a[2] = tmpport;
}
else
a[2] = scheme_false;
if (rw[4] >= 0) {
tmpport = scheme_make_fd_input_port(rw[4], scheme_intern_symbol("place-err"), 1, 1);
tmpport = scheme_make_fd_input_port(rw[4], scheme_intern_symbol("place-err"), 0, 0);
a[3] = tmpport;
}
else
@ -2157,21 +2157,21 @@ static void *place_start_proc_after_stack(void *data_arg, void *stack_base) {
{
Scheme_Object *tmp;
if (place_data->in >= 0) {
tmp = scheme_make_fd_input_port (place_data->in, scheme_intern_symbol("place-in"), 1, 1);
tmp = scheme_make_fd_input_port (place_data->in, scheme_intern_symbol("place-in"), 0, 0);
if (scheme_orig_stdin_port) {
scheme_close_input_port(scheme_orig_stdin_port);
}
scheme_orig_stdin_port = tmp;
}
if (place_data->out >= 0) {
tmp = scheme_make_fd_output_port(place_data->out, scheme_intern_symbol("place-out"), 1, 1, 0);
tmp = scheme_make_fd_output_port(place_data->out, scheme_intern_symbol("place-out"), 0, 0, 0);
if (scheme_orig_stdout_port) {
scheme_close_output_port(scheme_orig_stdout_port);
}
scheme_orig_stdout_port = tmp;
}
if (place_data->err >= 0) {
tmp = scheme_make_fd_output_port(place_data->err, scheme_intern_symbol("place-err"), 1, 1, 0);
tmp = scheme_make_fd_output_port(place_data->err, scheme_intern_symbol("place-err"), 0, 0, 0);
if (scheme_orig_stderr_port) {
scheme_close_output_port(scheme_orig_stderr_port);
}