ancestor-member | ||
---|---|---|
Prev | Next |
(ancestor-member nd gilist)
Returns the first ancestor of nd whose GI that is a member of gilist.
Norman Walsh, <ndw@nwalsh.com>
(define (ancestor-member nd gilist) ;; Returns the first ancestor in a list of GIs (if (node-list-empty? nd) (empty-node-list) (if (member (gi nd) gilist) nd (ancestor-member (parent nd) gilist))))
Prev | Home | Next |
absolute-child-number | Up | assoc-objs |