link ( tag -- tag/f )

Vocabulary

wikipedia.private

Inputs

tag

an object

Outputs

tag/f

an object

Definition

USING: kernel xml.data xml.traversal ;

IN: wikipedia.private

: link ( tag -- tag/f )
    "a" assure-name over tag-named?
    [ "a" deep-tag-named ] unless ;