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

ecl_make_stream_from_fd: argument order was incorrect

Browse source
This commit is contained in:
Daniel Kochmański 2016-10-06 12:50:02 +02:00
parent ef665f0faf
commit 9f1de81a37
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/c/unixsys.d
View file

@ -782,7 +782,8 @@ create_descriptor(cl_object stream, cl_object direction,
if (parent_write > 0) {
stream_write = ecl_make_stream_from_fd(command, parent_write,
ecl_smm_output, 8,
external_format, ECL_T);
ECL_STREAM_DEFAULT_FORMAT,
external_format);
} else {
parent_write = 0;
stream_write = cl_core.null_stream;
@ -790,7 +791,8 @@ create_descriptor(cl_object stream, cl_object direction,
if (parent_read > 0) {
stream_read = ecl_make_stream_from_fd(command, parent_read,
ecl_smm_input, 8,
external_format, ECL_T);
ECL_STREAM_DEFAULT_FORMAT,
external_format);
} else {
parent_read = 0;
stream_read = cl_core.null_stream;
@ -798,7 +800,8 @@ create_descriptor(cl_object stream, cl_object direction,
if (parent_error > 0) {
stream_error = ecl_make_stream_from_fd(command, parent_error,
ecl_smm_input, 8,
external_format, ECL_T);
ECL_STREAM_DEFAULT_FORMAT,
external_format);
} else {
parent_error = 0;
stream_error = cl_core.null_stream;