[SOLVED] Re: sxml: avoiding intermixed text?

[Aleix Conchillo Flaqué]

When I asked the question I thought I could use some sxml function to do 
this job. Particularly, I found out a way to do it with the SXML 
modifications explained here:

http://www.modis.ispras.ru/Lizorkin/sxml-tutorial.html#hevea:modif

Unfortunately this is not available in Guile. So, This function removes 
whitespace text nodes from an sxml.

(define (remove-whitespace-nodes sxml)
  (define (node-fix node)
    (cond ((symbol? node) (list node))
          ((string? node) (if (string-null? (string-trim node))
                              #nil
                              (list node)))
          (else (list (remove-whitespace-nodes node)))))
  (let loop ((node sxml) (result '()))
    (cond ((null? node) result)
          (else (loop (cdr node)
                      (append result (node-fix (car node))))))))

I'm new to scheme, so a code review is really welcome!

Cheers,

Aleix