(sgml-root-element? node)
Returns #t if node is the root element of the current document.
Norman Walsh, <ndw@nwalsh.com>
(define (sgml-root-element? node) ;; Test if a node is the root element (node-list=? node (sgml-root-element node)))