| The Modular DocBook Stylesheets | ||
|---|---|---|
| Prev | DSSSL Library | Next |
(descendant-of? ancestor child)
Returns #t if child is a descendant of ancestor.
Norman Walsh, <norm@berkshire.net>
(define (descendant-of? ancestor child)
;; Returns true if the child is some descendant of the specified node
(let loop ((c child))
(if (node-list-empty? c)
#f
(if (node-list=? ancestor c)
#t
(loop (parent c))))))| Prev | Home | Next |
| default-uppercase-list | Up | dingbat |
Copyright © 1997, 1998 Norman Walsh