interpolate-attrs ( attrs -- quot )

Vocabulary

xml.syntax.private

Inputs

attrs

an object

Outputs

quot

an object

Definition

USING: assocs kernel sequences sequences.generalizations
xml.data ;

IN: xml.syntax.private

: interpolate-attrs ( attrs -- quot )
    [
        [ [ interpolate-attr ] { } assoc>map [ ] join ]
        [ assoc-size ] bi
        [ swap [ narray sift-values <attrs> ] dip ] curry
        compose
    ] when-interpolated ;