hipku> ( hipku -- ipv4/ipv6 )


Vocabulary
hipku

Inputs
hipkuan object


Outputs
ipv4/ipv6an object


Definition
USING: hipku.private kernel sequences ;

IN: hipku

: hipku> ( hipku -- ipv4/ipv6 )
" and " over subseq? [ hipku>ipv6 ] [ hipku>ipv4 ] if ;