[chatter] r11798 - trunk/fundev/sources/network/sockets

[cgay at mccarthy.opendylan.org]

Author: cgay
Date: Mon May  5 13:06:05 2008
New Revision: 11798

Modified:
   trunk/fundev/sources/network/sockets/win32-socket-accessor.dylan
Log:
job: minor
Another half measure for win32-socket-error: always give the error message
"address in use" for error code $WSAEADDRINUSE.  Couldn't figure out how
to get the address and port into the error message, but this seems better
than "socket error".

Modified: trunk/fundev/sources/network/sockets/win32-socket-accessor.dylan
==============================================================================
--- trunk/fundev/sources/network/sockets/win32-socket-accessor.dylan	(original)
+++ trunk/fundev/sources/network/sockets/win32-socket-accessor.dylan	Mon May  5 13:06:05 2008
@@ -59,8 +59,7 @@
 	 error-code: error-code, format-string: format-string,
 	 format-arguments: format-arguments);
   if (high-level-error)
-    high-level-error.socket-condition-details :=
-      win32-condition-object;
+    high-level-error.socket-condition-details := win32-condition-object;
   else
     //     high-level-error :=
     select (error-code by ==)
@@ -122,11 +121,11 @@
 	       format-arguments: format-arguments, host-port: host-port,
 	       host-address: host-address);
       $WSAEADDRINUSE =>
-	high-level-error := 
-	  make(<address-in-use>, details: win32-condition-object,
-	       format-string: format-string, 
-	       format-arguments: format-arguments,
-	       host-address: host-address, host-port: host-port);
+	high-level-error := make(<address-in-use>,
+                                 details: win32-condition-object,
+                                 format-string: "address in use",
+                                 host-address: host-address,
+                                 host-port: host-port);
       otherwise =>
 	high-level-error := win32-condition-object;
     end select;