non-working SXML pasted by sECuRE on Sun Oct 21 15:32:50 2012
(define-page (main-page-path)
(lambda ()
(let ((articles (products-for-group (get-group "4582109"))))
`(h1 "Articles")
,(lambda (article)
`(strong ,(alist-ref 'name article))
articles))))Maybe this? added by mario-goulart on Sun Oct 21 15:37:42 2012
(define-page (main-page-path)
(lambda ()
(let ((articles (products-for-group (get-group "4582109"))))
`((h1 "Articles")
,@(map (lambda (article)
`(strong ,(alist-ref 'name article))
articles))))))