summaryrefslogtreecommitdiff
path: root/libguile/iselect.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/iselect.c')
-rw-r--r--libguile/iselect.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/iselect.c b/libguile/iselect.c
index 921fca3e5..b2977ad7c 100644
--- a/libguile/iselect.c
+++ b/libguile/iselect.c
@@ -311,14 +311,14 @@ finalize_fd_sets (coop_t *t)
{
((ulongptr) t->writefds)[i] &= ((ulongptr) &rwritefds)[i];
((ulongptr) &gwritefds)[i] &= ~s;
- n_ones += SCM_NLONGBITS (&((ulongptr) t->readfds)[i]);
+ n_ones += SCM_NLONGBITS (&((ulongptr) t->writefds)[i]);
}
cont_write:
if (t->exceptfds != NULL && (s = ((ulongptr) t->exceptfds)[i]) != 0)
{
((ulongptr) t->exceptfds)[i] &= ((ulongptr) &rexceptfds)[i];
((ulongptr) &gexceptfds)[i] &= ~s;
- n_ones += SCM_NLONGBITS (&((ulongptr) t->readfds)[i]);
+ n_ones += SCM_NLONGBITS (&((ulongptr) t->exceptfds)[i]);
}
cont_except:
}