| The Modular DocBook Stylesheets | ||
|---|---|---|
| Prev | DSSSL Library | Next |
(ancestor-member nd gilist)
Returns the first ancestor of nd whose GI that is a member of gilist.
Norman Walsh, <norm@berkshire.net>
(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 |
Copyright © 1997, 1998 Norman Walsh