maybe-name ( space main -- name/f )

Vocabulary

xml.name.private

Inputs

space	an object
main	an object

Outputs

name/f

an object

Definition

USING: combinators.short-circuit kernel xml.data ;

IN: xml.name.private

: maybe-name ( space main -- name/f )
    2dup
    { [ drop valid-name-start? ] [ nip valid-name-start? ] } 2&&
    [ f <name> ] [ 2drop f ] if ;