         V{ } clone >>open-elements
     ; inline
 
+TUPLE: comment open payload close ;
+
+: <comment> ( payload -- comment )
+    comment new
+        swap >>payload ; inline
+
 : force-quirks ( document -- )
     doctype>> t >>quirks? drop ;
 

doctype
tag
end-tag
tag-name
end-tag-name
attribute-name


TUPLE: document
quirks-mode?
limited-quirks-mode?
iframe-srcdoc?
scripting? ! set in constructor
frameset-ok? ! frameset-ok? but we want default to f
fostering-parent?
tree
tree-doctype
head-element-pointer ! set during insertion time
parser-cannot-change-mode-flag
insertion-mode
original-insertion-mode
last
node
