# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 832170757 0
# Node ID 99d01b1b879921545cf7cd328d77881f6456a88f
# Parent  440d937a60f7a4edc6cc529edfc25bd0416edebe
(Fcall_process): Don't close the same fd twice.

diff -r 440d937a60f7 -r 99d01b1b8799 src/callproc.c
--- a/src/callproc.c	Tue May 14 19:01:53 1996 +0000
+++ b/src/callproc.c	Wed May 15 14:32:37 1996 +0000
@@ -458,7 +458,7 @@
     /* Close most of our fd's, but not fd[0]
        since we will use that to read input from.  */
     close (filefd);
-    if (fd1 >= 0)
+    if (fd1 >= 0 && fd1 != fd_error)
       close (fd1);
   }