Annoying comments
svn: r6356
This commit is contained in:
parent
d48168dd83
commit
3adb445691
|
@ -65,9 +65,7 @@
|
||||||
[responders-file-not-found
|
[responders-file-not-found
|
||||||
(gen-file-not-found-responder "not-found.html")])
|
(gen-file-not-found-responder "not-found.html")])
|
||||||
|
|
||||||
;; ************************************************************
|
|
||||||
;; dispatch: connection request -> void
|
;; dispatch: connection request -> void
|
||||||
;; trivial dispatcher
|
|
||||||
(define (dispatch conn req)
|
(define (dispatch conn req)
|
||||||
(define-values (uri method path) (decompose-request req))
|
(define-values (uri method path) (decompose-request req))
|
||||||
(myprint "dispatch~n")
|
(myprint "dispatch~n")
|
||||||
|
@ -78,10 +76,6 @@
|
||||||
(servlet-content-producer conn req))
|
(servlet-content-producer conn req))
|
||||||
(next-dispatcher)))
|
(next-dispatcher)))
|
||||||
|
|
||||||
;; ************************************************************
|
|
||||||
;; ************************************************************
|
|
||||||
;; SERVING SERVLETS
|
|
||||||
|
|
||||||
;; servlet-content-producer: connection request -> void
|
;; servlet-content-producer: connection request -> void
|
||||||
(define (servlet-content-producer conn req)
|
(define (servlet-content-producer conn req)
|
||||||
(myprint "servlet-content-producer~n")
|
(myprint "servlet-content-producer~n")
|
||||||
|
|
Loading…
Reference in New Issue
Block a user