USING: accessors kernel math.parser sequences urls ; IN: http.client.private : url-host ( url -- string ) [ host>> ] [ port>> ] bi dup f = [ drop 80 ] when ! 80 as default f dup "http" protocol-port = [ drop ] [ ":" swap number>string 3append ] if ; ! it would be fixed better in the word >url ! to create a port number, based on the protocol. ! http/ftp/https