summaryrefslogtreecommitdiff
path: root/libguile/fports.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/fports.c')
-rw-r--r--libguile/fports.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/fports.c b/libguile/fports.c
index 078135a8c..e30d7bb8c 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -513,6 +513,7 @@ fport_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
return 1;
}
+#ifndef __MINGW32__
/* thread-local block for input on fport's fdes. */
static void
fport_wait_for_input (SCM port)
@@ -537,6 +538,7 @@ fport_wait_for_input (SCM port)
while (n == -1 && errno == EINTR);
}
}
+#endif /* !__MINGW32__ */
static void fport_flush (SCM port);
@@ -549,7 +551,9 @@ fport_fill_input (SCM port)
scm_t_port *pt = SCM_PTAB_ENTRY (port);
scm_t_fport *fp = SCM_FSTREAM (port);
+#ifndef __MINGW32__
fport_wait_for_input (port);
+#endif /* !__MINGW32__ */
SCM_SYSCALL (count = read (fp->fdes, pt->read_buf, pt->read_buf_size));
if (count == -1)
scm_syserror ("fport_fill_input");