[plt-scheme] Web server dispatcher call wrapper

Is there a way to wrap a call to a dispatcher so that it simulates an
HTTP POST request? For example, if `render-foo' is defined as:

(define (render-foo request x y)
  (local [(define (response-generator make-url) ...)]
    (send/suspend/dispatch response-generator)))

How can I call `render-foo' like this?

(with-bindings
  [(x "foo")
   (y "bar")]
  (render-foo request))


-- 
Rommel M. Martinez
http://www.bespin.org/~ebzzry