From ec65f5dadc484dc65f513db0dd7b4e00e9c0142b Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Fri, 2 Nov 2001 00:15:41 +0000
Subject: [PATCH] * fports.c: Include `io.h' is possible.  Put `*fp' into
 referring statement block in `scm_fport_buffer_add()'. Some corrections in
 `getflags()'.

* ioext.c, ports.c: Include `io.h' is possible.
---
 libguile/ioext.c | 3 +++
 libguile/ports.c | 4 ++++
 2 files changed, 7 insertions(+)

diff --git a/libguile/ioext.c b/libguile/ioext.c
index dddd38dda..6d57cd3ee 100644
--- a/libguile/ioext.c
+++ b/libguile/ioext.c
@@ -55,6 +55,9 @@
 
 #include <fcntl.h>
 
+#ifdef HAVE_IO_H
+#include <io.h>
+#endif
 #ifdef HAVE_UNISTD_H
 #include <unistd.h>
 #endif
diff --git a/libguile/ports.c b/libguile/ports.c
index 9e1acad54..7a02b1308 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -67,6 +67,10 @@
 #include <malloc.h>
 #endif
 
+#ifdef HAVE_IO_H
+#include <io.h>
+#endif
+
 #ifdef HAVE_UNISTD_H
 #include <unistd.h>
 #endif