Hi,
why the second function does not give a result back although
"ITEM" a descendant of (current-node) is
(process-node-list (select-elements (descendants (root-node)) "ITEM"))
(process-node-list (select-elements (descendants (current-node)) "ITEM"))
(define (root-node)
(let loop ((root (current-node)))
(if (node-list-empty? (parent root))
root
(loop (parent root)))))
thanks
Hans
**********************************************************
* Hans Eberle *
* STAR AG Tel. ++41 52 742 9- 254 *
* Wiesholz 35 Fax ++41 52 742 9- 292 *
* CH-8262 Ramsen http://www.star-ag.ch *
* *
* ---------- Abt.: Software-Entwicklung (SWE)----------- *
* *
* *
**********************************************************
DSSSList info and archive: http://www.mulberrytech.com/dsssl/dssslist