diff options
-rw-r--r-- | libguile/genio.c | 2 |
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); } |