[ call-next-method ] [ drop port>> ntohs ] 2bi with-port ;
M: inet6 present
- [ call-next-method ] [ port>> number>string ] bi ":" glue ;
+ [ call-next-method "[" "]" surround ] [ port>> number>string ] bi ":" glue ;
M: inet6 protocol drop 0 ;
MEMO: ipv6-supported? ( -- ? )
[ "::1" 0 <inet6> binary <server> dispose t ] [ drop f ] recover ;
-[ \ ipv6-supported? reset-memoized ]
-"io.sockets:ipv6-supported?" add-startup-hook
+STARTUP-HOOK: [ \ ipv6-supported? reset-memoized ]
GENERIC: resolve-host ( addrspec -- seq )