new-doctype-from-ch ( ch document -- )

Vocabulary

html5

Inputs

ch	an object
document	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: html5

: new-doctype-from-ch ( ch document -- )
    [ doctype new swap ?1sbuf >>name ] dip doctype<< ; inline