check-domain-name ( domain -- domain )


Vocabulary
dns

Inputs
domainan object


Outputs
domainan object


Definition
USING: kernel sequences ;

IN: dns

: check-domain-name ( domain -- domain )
dup ".." subseq-of?
[ domain-name-contains-empty-label ] when ;