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