# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 933345567 0
# Node ID 4f3c8f1cec96dfc8777843bc48da73f574b9f705
# Parent  2563b35e613f31cb289cbadb5a07dcd5103ef4e1
(create_process): Detect failure of `pipe'.

diff -r 2563b35e613f -r 4f3c8f1cec96 src/process.c
--- a/src/process.c	Fri Jul 30 14:37:30 1999 +0000
+++ b/src/process.c	Fri Jul 30 14:39:27 1999 +0000
@@ -1379,10 +1379,19 @@
     }
 #else /* not SKTPAIR */
     {
-      pipe (sv);
+      int tem;
+      tem = pipe (sv);
+      if (tem < 0)
+	report_file_error ("Creating pipe", Qnil);
       inchannel = sv[0];
       forkout = sv[1];
-      pipe (sv);
+      tem = pipe (sv);
+      if (tem < 0)
+	{
+	  close (inchannel);
+	  close (forkout);
+	  report_file_error ("Creating pipe", Qnil);
+	}
       outchannel = sv[1];
       forkin = sv[0];
     }