From 1dd6870cd5ff7d5d832a6e5f7625bc6ad45e40e6 Mon Sep 17 00:00:00 2001
From: Daniel Kochmanski <daniel@turtleware.eu>
Date: Fri, 21 Jul 2017 10:41:26 +0200
Subject: [PATCH] cleanup: signal error if pipe couldn't be created

---
 src/c/unixsys.d | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/c/unixsys.d b/src/c/unixsys.d
index a03b62091..1179cc32a 100644
--- a/src/c/unixsys.d
+++ b/src/c/unixsys.d
@@ -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];