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

Merge branch 'develop' into refactor-run-program

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-17 18:30:32 +01:00
commit 10242910f9
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

@ -592,7 +592,7 @@ si_run_program_internal(cl_object command, cl_object argv,
&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);
@ -646,7 +646,7 @@ si_run_program_internal(cl_object command, cl_object argv,
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);