From 2c05b49878c9860774ef0580987bfb740f567906 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 17 Nov 2005 01:10:07 +0000 Subject: [PATCH] Adding redirect/get/forget svn: r1335 --- collects/web-server/servlet.ss | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) diff --git a/collects/web-server/servlet.ss b/collects/web-server/servlet.ss index bb2b8d494e..580e068d8a 100644 --- a/collects/web-server/servlet.ss +++ b/collects/web-server/servlet.ss @@ -35,6 +35,7 @@ ;; sent directly to the client (Web browser) instead of the terminal/log. (provide/contract [redirect/get (-> request?)] + [redirect/get/forget (-> request?)] [adjust-timeout! (number? . -> . any)] [send/back (any/c . -> . any)] [send/finish (any/c . -> . any)] @@ -50,14 +51,7 @@ xexpr/callback? xexpr/callback->xexpr (all-from "web-cells.ss") - (all-from "servlet-helpers.ss")) - - ;; ************************************************************ - ;; HIGHER-LEVEL EXPORTS - - ; redirect/get : -> request - (define (redirect/get) - (send/suspend (lambda (k-url) (redirect-to k-url temporarily)))) + (all-from "servlet-helpers.ss")) ;; ************************************************************ ;; EXPORTS @@ -139,4 +133,14 @@ (define (send/suspend/callback p-exp) (send/suspend/dispatch (lambda (embed/url) - (xexpr/callback->xexpr embed/url p-exp))))) + (xexpr/callback->xexpr embed/url p-exp)))) + + ;; ************************************************************ + ;; HIGHER-LEVEL EXPORTS + + (define ((make-redirect/get send/suspend)) + (send/suspend (lambda (k-url) (redirect-to k-url temporarily)))) + + ; redirect/get : -> request + (define redirect/get (make-redirect/get send/suspend)) + (define redirect/get/forget (make-redirect/get send/forward)))