child-type-tag ( xml -- type-tag )

Vocabulary

gobject-introspection.loader

Inputs

xml

an object

Outputs

type-tag

an object

Definition

USING: kernel sequences xml.traversal ;

IN: gobject-introspection.loader

: child-type-tag ( xml -- type-tag )
    children-tags
    [ type-tags [ swap tag-named? ] with any? ] find nip ;