The Modular DocBook Stylesheets | ||
---|---|---|
Prev | DSSSL Library | Next |
(node-list-last-element nodelist)
This function returns the last 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-last-element nodelist) ;; Return the last element node in a node list (let loop ((el (empty-node-list)) (nl nodelist)) (if (node-list-empty? nl) el (if (gi (node-list-first nl)) (loop (node-list-first nl) (node-list-rest nl)) (loop el (node-list-rest nl))))))
Prev | Home | Next |
node-list-first-element | Up | node-list-last |
Copyright © 1997, 1998 Norman Walsh