(each-interpolated) ( ... item quot: ( ... interpolated -- ... ) -- ... )

Vocabulary

xml.syntax.private

Inputs

item	an object
quot	a quotation with stack effect ( ... interpolated -- ... )

Outputs

None

Definition

USING: accessors combinators kernel xml.data ;

IN: xml.syntax.private

: (each-interpolated)
    ( ... item quot: ( ... interpolated -- ... ) -- ... )
    {
        { [ over interpolated? ] [ call ] }
        { [ over tag? ] [ [ attrs>> ] dip each-attrs ] }
        { [ over attrs? ] [ each-attrs ] }
        { [ over xml? ] [ [ body>> ] dip (each-interpolated) ] }
        [ 2drop ]
    } cond ; inline recursive