define-page.scm

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