From b014f5c18a4ce967d902cfe12547b621ab134e5e Mon Sep 17 00:00:00 2001
From: David du Colombier <0intro@gmail.com>
Date: Fri, 17 May 1991 00:00:00 +0000
Subject: [PATCH] Plan 9 from Bell Labs 1991-05-17

---
 port/proc.c | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/port/proc.c b/port/proc.c
index 104f40b8cba128b8a4651094899c6e9170d999a1..02f910d81b28edf4967e413582577f300a3c2f1b 100644
--- a/port/proc.c
+++ b/port/proc.c
@@ -443,14 +443,17 @@ pexit(char *s, int freemem)
 	c = u->p;
 	c->alarm = 0;
 	mypid = c->pid;
+
+	for(n=0; n<=u->maxfd; n++)
+		if(ch = u->fd[n])	/* assign = */
+			close(ch);
+
+
 	if(freemem){
 		freesegs(-1);
 		closepgrp(c->pgrp);
 		close(u->dot);
 	}
-	for(n=0; n<=u->maxfd; n++)
-		if(ch = u->fd[n])	/* assign = */
-			close(ch);
 	/*
 	 * Any of my children exiting?
 	 */