Ripped out now-useless cloexec_unrevealed.

This commit is contained in:
shivers 1997-02-19 23:28:38 +00:00
parent bf449b53b7
commit bad528299e
1 changed files with 0 additions and 24 deletions

View File

@ -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;