interpolate-sequence ( seq -- quot )

Vocabulary

xml.syntax.private

Inputs

seq

an object

Outputs

quot

an object

Definition

USING: kernel sequences sequences.generalizations ;

IN: xml.syntax.private

: interpolate-sequence ( seq -- quot )
    [
        [ [ interpolate-item ] map concat ] [ length ] bi
        [ swap [ narray concat-interpolate ] dip ] curry compose
    ] when-interpolated ;