io.sockets: Minor cleanup.
parent
3adbee3ea0
commit
bcc86baf45
|
@ -348,7 +348,7 @@ SYMBOL: remote-address
|
||||||
[ (accept) ] keep
|
[ (accept) ] keep
|
||||||
parse-sockaddr swap
|
parse-sockaddr swap
|
||||||
<ports>
|
<ports>
|
||||||
] keep encoding>> <encoder-duplex> swap ;
|
] [ encoding>> ] bi <encoder-duplex> swap ;
|
||||||
|
|
||||||
: <datagram> ( addrspec -- datagram )
|
: <datagram> ( addrspec -- datagram )
|
||||||
[
|
[
|
||||||
|
|
|
@ -96,7 +96,7 @@ M: windows (broadcast) ( datagram -- datagram )
|
||||||
int <ref> malloc-byte-array ; inline
|
int <ref> malloc-byte-array ; inline
|
||||||
|
|
||||||
M: windows WSASocket-flags ( -- DWORD )
|
M: windows WSASocket-flags ( -- DWORD )
|
||||||
WSA_FLAG_OVERLAPPED ;
|
WSA_FLAG_OVERLAPPED ; inline
|
||||||
|
|
||||||
: get-ConnectEx-ptr ( socket -- void* )
|
: get-ConnectEx-ptr ( socket -- void* )
|
||||||
SIO_GET_EXTENSION_FUNCTION_POINTER
|
SIO_GET_EXTENSION_FUNCTION_POINTER
|
||||||
|
|
Loading…
Reference in New Issue