emit-char ( char document -- )

Vocabulary

html5

Inputs

char	an object
document	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: html5

:: emit-char ( char document -- )
    char 0 =
    [ document emit-null-character ] [
        document skip-leading-newline?>> char 10 = and
        :> skip? document f >>skip-leading-newline? drop skip?
        [ document char body-character ] unless
    ] if ;