text-token ( document obj -- document )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

document

an object

Definition

USING: accessors kernel math sequences ;

IN: html5

:: text-token ( document obj -- document )
    obj integer?
    [ document obj append-node document ] [
        obj f = [ "eof-in-text" report-parse-error ] when
        document open-elements>> pop obj >>end-tag drop
        document dup original-insertion-mode>> >>insertion-mode
        obj f = [ obj tree-insert ] when
    ] if ;