ipv6-host ( host -- host/ipv6 ipv6? )

Vocabulary

urls.private

Inputs

host

an object

Outputs

host/ipv6	an object
ipv6?	an object

Definition

USING: combinators.short-circuit kernel sequences ;

IN: urls.private

: ipv6-host ( host -- host/ipv6 ipv6? )
    dup { [ "[" head? ] [ "]" tail? ] } 1&&
    [ 1 swap index-of-last subseq t ] [ f ] if ;