take-interpolated ( quot -- interpolated )

Vocabulary

xml.elements

Inputs

quot

an object

Outputs

interpolated

an object

Definition

USING: kernel namespaces sequences unicode xml.data xml.state
xml.tokenize ;

IN: xml.elements

: take-interpolated ( quot -- interpolated )
    interpolating? get [
        drop get-char 62 eq?
        [ next f ] [ "->" take-string [ blank? ] trim ] if
        <interpolated>
    ] [ call ] if ; inline