;;; This page is for debugging only.  It tells you what your form returned.
;;; It corresponds to the nonexistent "form.html" and is hooked in by page-directory.scm.

(let ()
  (define (handle)
    (let ((results '()))
      (when (list? ui:data)
	(push! (list "UI:DATA is a list.<br>"
		     (map (lambda (datum)
			    `("<b>" ,(car datum) "</b>: "
				    ,(cdr datum)))
			  ui:data))
	       results))
      (when ui:index
	(push! (list (format nil "UI:INDEX is ~S<br>" ui:index)) results))
      results))
  handle)

;;; End of file.
