unbound variable?

unbound variable? pasted by dTal on Sat Jul 18 22:22:59 2015

(require-extension html-tags)

(define (html-transform list)
	(if (list? (car list))
		(<ul> (html-transform (car list)))
		(<li> (car list)))
	(if (not (null? (cdr list)))
		(html-transform (cdr list))))

(set! testlist '(one two (a b) three))
(html-transform testlist)

This version returns stuff added by alaricsp on Sat Jul 18 22:39:59 2015

(require-extension html-tags)

(define (html-transform list)
  (string-append
   (if (list? (car list))
       (<ul> (html-transform (car list)))
       (<li> (car list)))
   (if (not (null? (cdr list)))
       (html-transform (cdr list))
       "")))

(set! testlist '(one two (a b) three))
(pp (html-transform testlist))


Returns:

"<li>one</li><li>two</li><ul><li>a</li><li>b</li></ul><li>three</li>"