Small fix to scm_getc: Move FD_ZERO into the select loop

[bpt/guile.git] / libguile / genio.c

diff --git a/libguile/genio.c b/libguile/genio.c
index d1052fb..74bc0d3 100644 (file)
--- 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);
            }