over tree>> push
after-body-mode >>insertion-mode
- ] }
+ ] }
{ [ dup { [ end-tag? ] [ name>> "html" = ] } 1&& ] [ drop unimplemented* ] }
! { [ ] [ ] }
[
{ [ dup doctype? ] [ drop ] }
{ [ dup { [ tag? ] [ name>> "html" = ] } 1&& ] [
unimplemented*
- ] }
+ ] }
{ [ dup { [ end-tag? ] [ name>> "html" = ] } 1&& ] [
! XXX: make this a function
"html" pick tree>> find-matching-tag