suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Annoying comments

Browse Source 
svn: r6356
This commit is contained in:
Jay McCarthy 2007-05-28 17:11:46 +00:00
parent d48168dd83
commit 3adb445691
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/web-server/prototype-web-server/dispatch-servlets2.ss
View File

@ -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")