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

Small fix to scm_getc: Move FD_ZERO into the select loop

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-01-30 21:02:36 +00:00
parent 6905611f41
commit a3ec616e42
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/genio.c
View file

@ -116,9 +116,9 @@ scm_getc (port)
int n; int n;
SELECT_TYPE readfds; SELECT_TYPE readfds;
int fd = fileno ((FILE *) f); int fd = fileno ((FILE *) f);
FD_ZERO (&readfds);
do do
{ {
FD_ZERO (&readfds);
FD_SET (fd, &readfds); FD_SET (fd, &readfds);
n = scm_internal_select (fd + 1, &readfds, NULL, NULL, NULL); n = scm_internal_select (fd + 1, &readfds, NULL, NULL, NULL);
} }