before-main? ( -- ? )

Vocabulary

xml.private

Inputs

None

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel namespaces sequences
xml.data xml.state ;

IN: xml.private

: before-main? ( -- ? )
    xml-stack get
    { [ length 1 = ] [ first second [ tag? ] none? ] } 1&& ;