before-main? ( -- ? )

Vocabulary
xml.private

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? ] any? not ] } 1&& ;