From eb209a723abb80d70c1faddb2c7a407308df2dfb Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 1 Sep 2008 22:46:34 -0500 Subject: [PATCH] new accessors --- basis/io/sockets/sockets.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor index 9968014993..0e49ca86ec 100755 --- a/basis/io/sockets/sockets.factor +++ b/basis/io/sockets/sockets.factor @@ -72,8 +72,8 @@ M: inet4 sockaddr-type drop "sockaddr-in" c-type ; M: inet4 make-sockaddr ( inet -- sockaddr ) "sockaddr-in" AF_INET over set-sockaddr-in-family - over inet4-port htons over set-sockaddr-in-port - over inet4-host + over port>> htons over set-sockaddr-in-port + over host>> "0.0.0.0" or rot inet-pton *uint over set-sockaddr-in-addr ; @@ -134,8 +134,8 @@ M: inet6 sockaddr-type drop "sockaddr-in6" c-type ; M: inet6 make-sockaddr ( inet -- sockaddr ) "sockaddr-in6" AF_INET6 over set-sockaddr-in6-family - over inet6-port htons over set-sockaddr-in6-port - over inet6-host "::" or + over port>> htons over set-sockaddr-in6-port + over host>> "::" or rot inet-pton over set-sockaddr-in6-addr ; M: inet6 parse-sockaddr