From d3e008af50a41c4a9ad5dced8fa52ce5c8ecc187 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 24 Jun 2014 11:40:21 +0100
Subject: [PATCH] racket/tcp: use %E instead of %e for socket error reporting

Using "%E" is right for WinSock errors, instead of "%e".
---
 racket/src/racket/src/network.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/racket/src/racket/src/network.c b/racket/src/racket/src/network.c
index 9dd43b4cfd..04e4122575 100644
--- a/racket/src/racket/src/network.c
+++ b/racket/src/racket/src/network.c
@@ -1395,7 +1395,7 @@ static intptr_t tcp_get_string(Scheme_Input_Port *port,
   if (data->b.bufmax == -1) {
     scheme_raise_exn(MZEXN_FAIL_NETWORK,
 		     "tcp-read: error reading\n"
-                     "  system error: %e",
+                     "  system error: %E",
 		     errid);
     return 0;
   } else if (!data->b.bufmax) {
@@ -1555,7 +1555,7 @@ static intptr_t tcp_do_write_string(Scheme_Output_Port *port,
   if (errid)
     scheme_raise_exn(MZEXN_FAIL_NETWORK,
 		     "tcp-write: error writing\n"
-                     "  system error: %e",
+                     "  system error: %E",
 		     errid);
 
   return sent;
@@ -2595,7 +2595,7 @@ static Scheme_Object *tcp_addresses(int argc, Scheme_Object *argv[])
     if (getsockname(socket, (struct sockaddr *)here, &l)) {
       scheme_raise_exn(MZEXN_FAIL_NETWORK,
 		       "tcp-addresses: could not get local address\n"
-                       "  system error: %e",
+                       "  system error: %E",
 		       SOCK_ERRNO());
     }
     here_len = l;
@@ -2606,7 +2606,7 @@ static Scheme_Object *tcp_addresses(int argc, Scheme_Object *argv[])
       if (peerrc && !udp) {
         scheme_raise_exn(MZEXN_FAIL_NETWORK, 
                          "tcp-addresses: could not get peer address\n"
-                         "  system error: %e", 
+                         "  system error: %E", 
                          SOCK_ERRNO());
       }
       there_len = l;