summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/genio.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/genio.c b/libguile/genio.c
index d1052fb87..74bc0d39e 100644
--- a/libguile/genio.c
+++ b/libguile/genio.c
@@ -116,9 +116,9 @@ scm_getc (port)
int n;
SELECT_TYPE readfds;
int fd = fileno ((FILE *) f);
- FD_ZERO (&readfds);
do
{
+ FD_ZERO (&readfds);
FD_SET (fd, &readfds);
n = scm_internal_select (fd + 1, &readfds, NULL, NULL, NULL);
}