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

io.sockets: minor cleanup

db4
Slava Pestov 2010-09-24 01:17:33 -07:00
parent d43d703b36
commit 2fb36ea1c5
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -256,7 +256,6 @@ TUPLE: datagram-port < port addr ;
HOOK: (datagram) io-backend ( addr -- datagram )
TUPLE: raw-port < port addr ;
HOOK: (raw) io-backend ( addr -- raw )
@ -353,8 +352,7 @@ SYMBOL: remote-address
MEMO: ipv6-supported? ( -- ? )
[ "::1" 0 <inet6> binary <server> dispose t ] [ drop f ] recover ;
[ \ ipv6-supported? reset-memoized ipv6-supported? drop ]
"ipv6-support-check" add-startup-hook
[ \ ipv6-supported? reset-memoized ] "io.sockets" add-startup-hook
GENERIC: resolve-host ( addrspec -- seq )
@ -390,11 +388,10 @@ M: f resolve-host
drop resolve-localhost ;
M: object resolve-localhost
ipv6-supported? [
{ T{ ipv4 f "0.0.0.0" } T{ ipv6 f "::" } }
] [
{ T{ ipv4 f "0.0.0.0" } }
] if ;
ipv6-supported?
{ T{ ipv4 f "0.0.0.0" } T{ ipv6 f "::" } }
{ T{ ipv4 f "0.0.0.0" } }
? ;
: host-name ( -- string )
256 <byte-array> dup dup length gethostname