| node-list-filter-elements | ||
|---|---|---|
| Prev | Next | |
(node-list-filter-elements nodelist)
Returns the elements in nodelist
Norman Walsh, <ndw@nwalsh.com>
(define (node-list-filter-elements nodelist)
;; Returns the elements in 'nodelist'
(let loop ((result (empty-node-list)) (nl nodelist))
(if (node-list-empty? nl)
result
(if (equal? (node-property 'class-name (node-list-first nl)) 'element)
(loop (node-list result (node-list-first nl))
(node-list-rest nl))
(loop result (node-list-rest nl))))))| Prev | Home | Next |
| node-list-filter-by-not-gi | Up | node-list-filter-out-pis |