steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.sockets: fix for inet6 too. 

"::1" 0 <inet4> utf8 <server>
"::1" f <inet4> utf8 <server>

Fixes #2109
windows-drag
Doug Coleman 2019-03-17 12:23:34 -05:00
parent f4d17d3ba3
commit d59292faf6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/sockets/sockets.factor
View File

@ -179,7 +179,7 @@ M: ipv6 empty-sockaddr drop sockaddr-in6 <struct> ;
sockaddr-in6 <struct> sockaddr-in6 <struct>
AF_INET6 >>family AF_INET6 >>family
swap swap
port>> htons >>port ; inline port>> 0 or htons >>port ; inline
M: ipv6 make-sockaddr ( inet -- sockaddr ) M: ipv6 make-sockaddr ( inet -- sockaddr )
[ make-sockaddr-in6-part ] [ make-sockaddr-in6-part ]
@ -201,7 +201,7 @@ M: ipv6 present
[ host>> ] [ scope-id>> ] bi [ host>> ] [ scope-id>> ] bi
[ number>string "%" glue ] unless-zero ; [ number>string "%" glue ] unless-zero ;
TUPLE: inet6 < ipv6 { port integer read-only } ; TUPLE: inet6 < ipv6 { port maybe{ integer } read-only } ;
: <inet6> ( host port -- inet6 ) : <inet6> ( host port -- inet6 )
[ dup check-ipv6 0 ] dip inet6 boa ; [ dup check-ipv6 0 ] dip inet6 boa ;