From bad528299eb5803a274e75c484bb67dd8489c8fe Mon Sep 17 00:00:00 2001
From: shivers <shivers>
Date: Wed, 19 Feb 1997 23:28:38 +0000
Subject: [PATCH] Ripped out now-useless cloexec_unrevealed.

---
 scsh/fdports1.c | 24 ------------------------
 1 file changed, 24 deletions(-)

diff --git a/scsh/fdports1.c b/scsh/fdports1.c
index 0516115..b87c869 100644
--- a/scsh/fdports1.c
+++ b/scsh/fdports1.c
@@ -200,30 +200,6 @@ static int cloexec_fdport(scheme_value port_data)
     }
 
 
-/*  Set all the unrevealed ports to close-on-exec.
-    This is called right before an exec, which is sleazy;
-    we should have the port-revealing machinery set and reset
-    this value.
-
-    If we get interrupted in the midst, we just bail out half-way.
-    The re-try loop will then have to repeat some work, but so what?
-    This whole function should go away.
-*/
-scheme_value cloexec_unrevealed(void)
-{
-    int i;
-    for(i=0; i<NUM_FDPORTS; i++) {
-	scheme_value port = fdports[i];
-	if( port != SCHFALSE ) {
-	    scheme_value data = *Port_PortData(port);
-	    if( *PortData_Rev(data) == 0 )
-	      if( cloexec_fdport(data) == EINTR ) return ENTER_FIXNUM(EINTR);
-	    }
-	}
-    return SCHFALSE;
-    }
-
-
 int install_port(int fd, scheme_value port, int revealed)
 {
     FILE *stream;