assert-blanks ( seq pre? -- )

Vocabulary

xml.private

Inputs

seq	an object
pre?	an object

Outputs

None

Definition

USING: ascii kernel sequences strings xml.errors ;

IN: xml.private

: assert-blanks ( seq pre? -- )
    swap [ string? ] filter [
        dup [ blank? ] all?
        [ drop ] [ swap pre/post-content ] if
    ] each drop ;