From 3adb4456916be309a1bd87a0f623bf2948341f46 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 28 May 2007 17:11:46 +0000 Subject: [PATCH] Annoying comments svn: r6356 --- .../web-server/prototype-web-server/dispatch-servlets2.ss | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/collects/web-server/prototype-web-server/dispatch-servlets2.ss b/collects/web-server/prototype-web-server/dispatch-servlets2.ss index b2b5909b09..007d40daa9 100644 --- a/collects/web-server/prototype-web-server/dispatch-servlets2.ss +++ b/collects/web-server/prototype-web-server/dispatch-servlets2.ss @@ -65,9 +65,7 @@ [responders-file-not-found (gen-file-not-found-responder "not-found.html")]) - ;; ************************************************************ ;; dispatch: connection request -> void - ;; trivial dispatcher (define (dispatch conn req) (define-values (uri method path) (decompose-request req)) (myprint "dispatch~n") @@ -77,11 +75,7 @@ ;; more here - make timeouts proportional to size of bindings (servlet-content-producer conn req)) (next-dispatcher))) - - ;; ************************************************************ - ;; ************************************************************ - ;; SERVING SERVLETS - + ;; servlet-content-producer: connection request -> void (define (servlet-content-producer conn req) (myprint "servlet-content-producer~n")