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

Typo

Browse Source 
svn: r641
This commit is contained in:
Jay McCarthy 2005-08-23 22:43:34 +00:00
parent 00b2750368
commit 3449e840ad
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/web-server/web-server-unit.ss
View File

@ -178,10 +178,8 @@
(timeouts-servlet-connection (host-timeouts host-info))) (timeouts-servlet-connection (host-timeouts host-info)))
;; more here - make timeouts proportional to size of bindings ;; more here - make timeouts proportional to size of bindings
(servlet-content-producer conn req host-info)] (servlet-content-producer conn req host-info)]
[else (file-content-producer conn req host-info)]))) [else (file-content-producer conn req host-info)])))
;; conf-prefix?: string -> (union (listof string) #f) ;; conf-prefix?: string -> (union (listof string) #f)
;; does the path string have "/conf/" as a prefix? ;; does the path string have "/conf/" as a prefix?
(define conf-prefix? (define conf-prefix?
@ -670,7 +668,7 @@
; more here - check constraints ; more here - check constraints
the-servlet)] the-servlet)]
[else [else
(raise (format "unknown sevlet version ~e" version))])))] (raise (format "unknown servlet version ~e" version))])))]
;; response ;; response
[(response? s) [(response? s)
(letrec ([go (lambda () (letrec ([go (lambda ()