flush-temporary-buffer ( document -- )

Vocabulary

html5

Inputs

document

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: html5

: flush-temporary-buffer ( document -- )
    [
        dup temporary-buffer-attribute? [
            [ temporary-buffer>> ] [ attribute-value>> ] bi
            push-all
        ]
        [ [ temporary-buffer>> ] keep [ emit-char ] curry each ]
        if
    ] [ SBUF" " clone >>temporary-buffer drop ] bi ;