default-port? ( url -- ? )

Vocabulary

http.client.private

Inputs

url

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel protocols ;

IN: http.client.private

: default-port? ( url -- ? )
    {
        [ port>> not ]
        [ [ port>> ] [ protocol>> lookup-protocol-port ] bi = ]
    } 1|| ;