mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

* posix.c (scm_pipe): rewrote the docstring.

Browse source 
(and fixed a bug in the scm_select change)
This commit is contained in:
Gary Houston 2000-01-29 19:50:36 +00:00
parent 28d77376bc
commit ae1b098b07
3 changed files with 24 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

19
libguile/filesys.c
View file

@ -1050,18 +1050,19 @@ SCM_DEFINE (scm_select, "select", 3, 2, 0,
max_fd = except_max;
}
if (SCM_UNBNDP (secs) || SCM_FALSEP (secs))
/* if there's a port with a ready buffer, don't block, just
check for ready file descriptors. */
if (read_ports_ready != SCM_EOL || write_ports_ready != SCM_EOL)
{
timeout.tv_sec = 0;
timeout.tv_usec = 0;
time_ptr = &timeout;
}
else if (SCM_UNBNDP (secs) || SCM_FALSEP (secs))
time_ptr = 0;
else
{
/* if there's a port with a ready buffer, don't block, just
check for ready file descriptors. */
if (read_ports_ready != SCM_EOL || write_ports_ready != SCM_EOL)
{
timeout.tv_sec = 0;
timeout.tv_usec = 0;
}
else if (SCM_INUMP (secs))
if (SCM_INUMP (secs))
{
timeout.tv_sec = SCM_INUM (secs);
if (SCM_UNBNDP (usecs))