get-prolog ( seq -- prolog )

Vocabulary

xml.private

Inputs

seq

an object

Outputs

prolog

an object

Definition

USING: kernel sequences splitting xml.data ;

IN: xml.private

: get-prolog ( seq -- prolog )
    { "" } ?head drop ?first dup prolog?
    [ drop default-prolog ] unless ;