| The Modular DocBook Stylesheets | ||
|---|---|---|
| Prev | DSSSL Library | Next |
(node-list-first-element nodelist)
This function returns the first node in a node list which is an element (as opposed to a PI or anything else that might appear in a node list).
Norman Walsh, <norm@berkshire.net>
(define (node-list-first-element nodelist)
;; Return the first element node in a node list
(let loop ((nl nodelist))
(if (node-list-empty? nl)
(empty-node-list)
(if (gi (node-list-first nl))
(node-list-first nl)
(loop (node-list-rest nl))))))| Prev | Home | Next |
| node-list-filter-out-pis | Up | node-list-last-element |
Copyright © 1997, 1998 Norman Walsh