io.sockets: Minor cleanup.

diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index 3f68c62a6a37aae163e2cf06f1f35ce85f800fd6..596b6bfc2201c029ecfbdd9ba648954042be92a8 100644 (file)
--- a/basis/io/sockets/sockets.factor
+++ b/basis/io/sockets/sockets.factor
@@ -348,7 +348,7 @@ SYMBOL: remote-address
         [ (accept) ] keep
         parse-sockaddr swap
         <ports>
-    ] keep encoding>> <encoder-duplex> swap ;
+    ] [ encoding>> ] bi <encoder-duplex> swap ;
 
 : <datagram> ( addrspec -- datagram )
     [

diff --git a/basis/io/sockets/windows/windows.factor b/basis/io/sockets/windows/windows.factor
index b3b001ecbf23fcfb5b72caee9a5f9b4522076676..ee70e74ccef4e175a1bdd56767f753b53d5f9a3f 100755 (executable)
--- a/basis/io/sockets/windows/windows.factor
+++ b/basis/io/sockets/windows/windows.factor
@@ -96,7 +96,7 @@ M: windows (broadcast) ( datagram -- datagram )
     int <ref> malloc-byte-array ; inline\r
 \r
 M: windows WSASocket-flags ( -- DWORD )\r
-    WSA_FLAG_OVERLAPPED ;\r
+    WSA_FLAG_OVERLAPPED ; inline\r
 \r
 : get-ConnectEx-ptr ( socket -- void* )\r
     SIO_GET_EXTENSION_FUNCTION_POINTER\r