cut-prolog ( seq -- newseq )

Vocabulary

xml.private

Inputs

seq

an object

Outputs

newseq

an object

Definition

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

IN: xml.private

: cut-prolog ( seq -- newseq )
    [ { [ prolog? not ] [ "" = not ] } 1&& ] filter ;