On 01/13/2011 11:53 AM, Thien-Thi Nguyen wrote:
I would replace(let loop ((node sxml) (result '())) (cond ((null? node) result) (else (loop (cdr node) (append result (node-fix (car node))))))) with (map node-fix sxml)
This would only change whitespaces for #nil... but... (delete #nil (map node-fix sxml)) works solves this. Thank you very much! Aleix
