(define (perfdata-handler _)
  (let* ((stats (gc-stats))
	 (dump-alist-aux (lambda (entry)
			   `(tr (td ,(format #f "~a" (car entry)))
				(td ,(format #f "~a" (cdr entry))))))
	 (dump-alist (lambda (lst)
		       (map dump-alist-aux lst))))
    (respond-html
     `("Performance information"
       (table (@ (class "standard-table"))
	      (tr (th (@ (colspan 2)) "GC Stats"))
	      ,(dump-alist stats))))))

(set! dataserver-handlers
      (cons* `(("perfdata") . ,perfdata-handler)
	     dataserver-handlers))