| The Modular DocBook Stylesheets | ||
|---|---|---|
| Prev | DSSSL Library | Next |
(sgml-root-element)
Return the root element of the document by walking up from wherever we are. (Isn't this built-in to DSSSL somehow???)
Norman Walsh, <norm@berkshire.net>
(define (sgml-root-element)
;; Returns the node that is the root element of the current document
(let loop ((root (current-node)))
(if (node-list-empty? (parent root))
root
(loop (parent root)))))| Prev | Home | Next |
| repl-substring? | Up | siblings |
Copyright © 1997, 1998 Norman Walsh