io.sockets: Default make-sockaddr-outgoing to make-sockaddr.

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

diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index 70f1a9e0194247fbb30be7ef075e2320a12052b3..87d1436904a004aff7f1ba5e2ae40ea806be36d2 100644 (file)
--- a/basis/io/sockets/sockets.factor
+++ b/basis/io/sockets/sockets.factor
@@ -48,6 +48,8 @@ GENERIC: inet-pton ( str addrspec -- data )
 : empty-sockaddr/size ( addrspec -- sockaddr size )
     [ empty-sockaddr ] [ sockaddr-size ] bi ;
 
+M: object make-sockaddr-outgoing make-sockaddr ;
+
 GENERIC: parse-sockaddr ( sockaddr addrspec -- newaddrspec )
 
 M: f parse-sockaddr nip ;