attr@ ( key alist -- index {key,value} )

Vocabulary

xml.data

Inputs

key	an object
alist	an object

Outputs

index	an object
{key,value}	an object

Definition

USING: accessors kernel sequences ;

IN: xml.data

: attr@ ( key alist -- index {key,value} )
    [ assure-name ] dip alist>> [ first names-match? ] with find
    ;