() Aleix Conchillo Flaqué <[email protected]> () Thu, 13 Jan 2011 11:47:26 +0100
I'm new to scheme, so a code review is really welcome!
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)
