: insecure-addr ( -- addrspec )
server-addrs [ secure? ] reject random ;
-
+
: server. ( threaded-server -- )
[ [ "=== " write name>> ] [ ] bi write-object nl ]
[ servers>> [ addr>> present print ] each ] bi ;
: get-servers-named ( string -- sequence )
[ all-servers ] dip '[ name>> _ = ] filter ;
-
+
: servers. ( -- )
all-servers [ server. ] each ;