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

cleanup: signal error if pipe couldn't be created

Browse source
This commit is contained in:
Daniel Kochmanski 2017-07-21 10:41:26 +02:00
parent b2a9100ee7
commit 1dd6870cd5
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/unixsys.d
View file

@ -318,8 +318,11 @@ static void
create_descriptor(cl_object stream, cl_object direction,
int *child, int *parent) {
if (stream == @':stream') {
int fd[2];
pipe(fd);
int fd[2], ret;
ret = pipe(fd);
if (ret != 0) {
FElibc_error("Unable to create pipe", 0);
}
if (direction == @':input') {
*parent = fd[1];
*child = fd[0];