tag-with-attr? ( elem attr-value attr-name -- ? )

Vocabulary

xml.traversal

Inputs

elem	an object
attr-value	an object
attr-name	an object

Outputs

?

an object

Definition

USING: kernel xml.data ;

IN: xml.traversal

: tag-with-attr? ( elem attr-value attr-name -- ? )
    rot dup tag? [ swap attr = ] [ 3drop f ] if ;