# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 831811997 0
# Node ID 221e646ed6334c403b63a46df0d5793cb2711432
# Parent  884b7293ccc777153e47b061eb2018830e0903a7
(Fcall_process): Close fd_error if successful.

diff -r 884b7293ccc7 -r 221e646ed633 src/callproc.c
--- a/src/callproc.c	Sat May 11 10:52:47 1996 +0000
+++ b/src/callproc.c	Sat May 11 10:53:17 1996 +0000
@@ -456,6 +456,8 @@
     close (filefd);
     if (fd1 >= 0)
       close (fd1);
+    if (fd_error >= 0)
+      close (fd_error);
   }
 
   if (pid < 0)