[plt-scheme] Requests in plt-web-server

Jens Axel Soegaard wrote:

One more trick. Also consider using
with-errors-to-browser while developing.

  ;;; post.scm
  (module post
    mzscheme

    (require (lib "servlet.ss" "web-server"))

    (provide start interface-version timeout)

    (define interface-version 'v1)
    (define timeout +inf.0)

    (define (start initial-request)
      (with-errors-to-browser
        (lambda ()
          (print-struct #t)
          (display initial-request)
          (newline)
          (display (request-bindings initial-request))
          (newline)
          (send/finish
          `(html
             (body "POST PAGE"))))))

-- 
Jens Axel Søgaard