remove-blanks ( seq -- newseq )

Vocabulary

xml.syntax.inverse

Inputs

seq

an object

Outputs

newseq

an object

Definition

USING: combinators.short-circuit kernel sequences strings
unicode ;

IN: xml.syntax.inverse

: remove-blanks ( seq -- newseq )
    [ { [ string? not ] [ [ blank? ] all? not ] } 1|| ] filter ;