define-page.scm

 (define-syntax define-page
    (syntax-rules ()
      ((_ name title headers body ...) (define (name #!rest params)
                                         (let ([post-data (process-request)])
                                           (let ([form-data (if post-data
                                                               (append post-data params)
                                                               params)])
                                                           (html-body name
                                                                      (lambda ()
                                                                        body ...) headers)))))
      ((_ name title body ...) (define-page title '() body ...))))