Remove many uses of <int> and *int etc

[factor.git] / basis / io / sockets / windows / windows.factor

diff --git a/basis/io/sockets/windows/windows.factor b/basis/io/sockets/windows/windows.factor
index 157aa5c848b295f5c35774708dfae3fabd668910..ec82631f7049a766f33338f0c6e74300582dca3c 100755 (executable)
--- a/basis/io/sockets/windows/windows.factor
+++ b/basis/io/sockets/windows/windows.factor
@@ -48,11 +48,11 @@ M: win32-socket dispose* ( stream -- )
     opened-socket ;\r
 \r
 M: object (get-local-address) ( socket addrspec -- sockaddr )\r
-    [ handle>> ] dip empty-sockaddr/size <int>\r
+    [ handle>> ] dip empty-sockaddr/size int <ref>\r
     [ getsockname socket-error ] 2keep drop ;\r
 \r
 M: object (get-remote-address) ( socket addrspec -- sockaddr )\r
-    [ handle>> ] dip empty-sockaddr/size <int>\r
+    [ handle>> ] dip empty-sockaddr/size int <ref>\r
     [ getpeername socket-error ] 2keep drop ;\r
 \r
 : bind-socket ( win32-socket sockaddr len -- )\r
@@ -87,7 +87,7 @@ M: windows (raw) ( addrspec -- handle )
     [ SOCK_RAW server-socket ] with-destructors ;\r
 \r
 : malloc-int ( n -- alien )\r
-    <int> malloc-byte-array ; inline\r
+    int <ref> malloc-byte-array ; inline\r
 \r
 M: winnt WSASocket-flags ( -- DWORD )\r
     WSA_FLAG_OVERLAPPED ;\r
@@ -181,7 +181,7 @@ TUPLE: AcceptEx-args port
     } cleave AcceptEx drop winsock-error ; inline\r
 \r
 : (extract-remote-address) ( lpOutputBuffer dwReceiveDataLength dwLocalAddressLength dwRemoteAddressLength -- sockaddr )\r
-    f <void*> 0 <int> f <void*> [ 0 <int> GetAcceptExSockaddrs ] keep *void* ;\r
+    f <void*> 0 int <ref> f <void*> [ 0 int <ref> GetAcceptExSockaddrs ] keep *void* ;\r
 \r
 : extract-remote-address ( AcceptEx -- sockaddr )\r
     [\r
@@ -246,7 +246,7 @@ TUPLE: WSARecvFrom-args port
     [\r
         [ port>> addr>> empty-sockaddr dup ]\r
         [ lpFrom>> ]\r
-        [ lpFromLen>> *int ]\r
+        [ lpFromLen>> int deref ]\r
         tri memcpy\r
     ] bi ; inline\r
 \r
@@ -278,7 +278,7 @@ TUPLE: WSASendTo-args port
         swap make-send-buffer >>lpBuffers\r
         1 >>dwBufferCount\r
         0 >>dwFlags\r
-        0 <uint> >>lpNumberOfBytesSent\r
+        0 uint <ref> >>lpNumberOfBytesSent\r
         (make-overlapped) >>lpOverlapped ; inline\r
 \r
 : call-WSASendTo ( WSASendTo -- )\r