# HG changeset patch
# User Jan Nieuwenhuizen <janneke@gnu.org>
# Date 1296776867 -3600
# Node ID 5241c71e066c3e9c040b3af4134a39f0a7ef4b44
# Parent  9bf9726dad3848539cf62933e08606087ba9f5ac
Thinko.

diff -r 9bf9726dad38 -r 5241c71e066c patches/guile-1.9.15-mingw-fports.patch
--- a/patches/guile-1.9.15-mingw-fports.patch	Thu Feb 03 23:57:59 2011 +0100
+++ b/patches/guile-1.9.15-mingw-fports.patch	Fri Feb 04 00:47:47 2011 +0100
@@ -9,7 +9,7 @@
 +	{
 +	  flags = PeekNamedPipe ((HANDLE) _get_osfhandle (fdes), NULL, 0, 
 +				 NULL, NULL, NULL) ? O_RDONLY : O_WRONLY;
-+	  flags = O_WRONLY;
++	  flags = O_RDWR;
 +	}
        /* stdin ? */
        else if (fdes == fileno (stdin) && isatty (fdes))