mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 13:01:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

run-program: error stream direction is output

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-17 17:58:13 +01:00
parent 1360bc1306
commit ee10aa7313
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/unixsys.d
View file

@ -626,7 +626,7 @@ create_descriptor(cl_object stream, cl_object direction,
&child_stderr, 0, TRUE,
DUPLICATE_SAME_ACCESS);
else
create_descriptor(error, @':error', &child_stderr, &parent_error);
create_descriptor(error, @':output', &child_stderr, &parent_error);
add_external_process(the_env, process);
@ -680,7 +680,7 @@ create_descriptor(cl_object stream, cl_object direction,
if (error == @':output')
child_stderr = child_stdout;
else
create_descriptor(error, @':error', &child_stderr, &parent_error);
create_descriptor(error, @':output', &child_stderr, &parent_error);
add_external_process(the_env, process);
pipe(pipe_fd);