From a1f33783651761d11372ff56d6d8dfdb9433bf0d Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 8 Mar 2016 09:21:28 -0800 Subject: [PATCH] io.sockets: Default make-sockaddr-outgoing to make-sockaddr. --- basis/io/sockets/sockets.factor | 2 ++ 1 file changed, 2 insertions(+) diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor index 70f1a9e019..87d1436904 100644 --- 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 ;