# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 767507739 0
# Node ID 3f4fc9d682b425dd4e19e96e57e52b34b001b927
# Parent  4d86978056b1daa3ad191a6d538f5323b80f6667
(create_process): If vfork fails, close forkin and forkout.

diff -r 4d86978056b1 -r 3f4fc9d682b4 src/process.c
--- a/src/process.c	Thu Apr 28 04:29:45 1994 +0000
+++ b/src/process.c	Thu Apr 28 04:35:39 1994 +0000
@@ -1396,7 +1396,13 @@
   }
 
   if (pid < 0)
-    report_file_error ("Doing vfork", Qnil);
+    {
+      if (forkin >= 0)
+	close (forkin);
+      if (forkin != forkout && forkout >= 0)
+	close (forkout);
+      report_file_error ("Doing vfork", Qnil);
+    }
   
   XFASTINT (XPROCESS (process)->pid) = pid;