descendant-of?
Name
descendant-of? -- Returns true if the child is some descendant of the specified node
Synopsis
(descendant-of? ancestor child)
Description
Returns #t if child is a descendant of ancestor.
Author
Norman Walsh, <ndw@nwalsh.com>
Source Code
(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))))))