| The Modular DocBook Stylesheets | ||
|---|---|---|
| Prev | DSSSL Library | Next |
(node-list-filter-by-gi nodelist gilist)
Returns a node list containing all the nodes from nodelist whose GIs are members of gilist. The order of nodes in the node list is preserved.
Norman Walsh, <norm@berkshire.net>
(define (node-list-filter-by-gi nodelist gilist)
;; Returns selected elements from a node list
(let loop ((result (empty-node-list)) (nl nodelist))
(if (node-list-empty? nl)
result
(if (member (gi (node-list-first nl)) gilist)
(loop (node-list result (node-list-first nl))
(node-list-rest nl))
(loop result (node-list-rest nl))))))| Prev | Home | Next |
| my-debug | Up | node-list-filter-by-not-gi |
Copyright © 1997, 1998 Norman Walsh