io.sockets: rename (receive) to (receive-unsafe)

diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index 80c7eefb0c61d205aeb898b2246aa6c6fe68591c..e322c7018e8a2fa5d90651a89e08f92249dcbf89 100644 (file)
--- a/basis/io/sockets/sockets.factor
+++ b/basis/io/sockets/sockets.factor
@@ -287,7 +287,7 @@ TUPLE: raw-port < port addr ;
 
 HOOK: (raw) io-backend ( addr -- raw )
 
-HOOK: (receive) io-backend ( n buf datagram -- size addrspec )
+HOOK: (receive-unsafe) io-backend ( n buf datagram -- size addrspec )
 
 ERROR: invalid-port object ;
 
@@ -371,7 +371,7 @@ SYMBOL: remote-address
 
 : receive-unsafe ( n buf datagram -- count addrspec )
     check-receive
-    [ (receive) ] [ addr>> ] bi parse-sockaddr ; inline
+    [ (receive-unsafe) ] [ addr>> ] bi parse-sockaddr ; inline
 
 CONSTANT: datagram-size 65536
 

diff --git a/basis/io/sockets/unix/unix.factor b/basis/io/sockets/unix/unix.factor
index fc59b8ce510892f467ac41ec61dce7f5471fc548..8414284b6069b6efbc0d18b9e892d78b88f93bbe 100644 (file)
--- a/basis/io/sockets/unix/unix.factor
+++ b/basis/io/sockets/unix/unix.factor
@@ -140,7 +140,7 @@ M: unix (raw)
         2drop [ +input+ wait-for-port ] [ (receive-loop) ] bi
     ] if ; inline recursive
 
-M: unix (receive) ( n buf datagram -- count sockaddr )
+M: unix (receive-unsafe) ( n buf datagram -- count sockaddr )
     (receive-loop) ;
 
 :: do-send ( packet sockaddr len socket datagram -- )

diff --git a/basis/io/sockets/windows/windows.factor b/basis/io/sockets/windows/windows.factor
index ca6333fe025a22ec1650578b1d41ab0fdcde7d9d..7773b369a650dcc82f2334d4ac083ba2a1563edc 100755 (executable)
--- a/basis/io/sockets/windows/windows.factor
+++ b/basis/io/sockets/windows/windows.factor
@@ -258,7 +258,7 @@ TUPLE: WSARecvFrom-args port
     [ lpFromLen>> int deref ]\r
     tri memcpy ; inline\r
 \r
-M: windows (receive) ( n buf datagram -- count addrspec )\r
+M: windows (receive-unsafe) ( n buf datagram -- count addrspec )\r
     [\r
         <WSARecvFrom-args>\r
         [ call-WSARecvFrom ]\r