[no subject]

From: Hans Eberle <Hans.Eberle@xxxxxxxxxx>
Date: Wed, 17 May 2000 10:54:58 +0200
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


Current Thread
  • [no subject]
    • Hans Eberle - Wed, 17 May 2000 05:26:17 -0400 (EDT) <=