emit-comment-token ( document -- )

Vocabulary

html5

Inputs

document

an object

Outputs

None

Definition

USING: accessors combinators io kernel prettyprint strings ;

IN: html5

: emit-comment-token ( document -- )
    "emit-comment-token: " write {
        [ comment-token>> >string . ]
        [
            dup comment-token>> >string <comment> tree-insert
            drop
        ]
        [ SBUF" " clone >>comment-token drop ]
    } cleave ;