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

Reindenting

Browse Source 
svn: r643
This commit is contained in:
Jay McCarthy 2005-08-24 15:02:22 +00:00
parent fe61e32d34
commit e4d6e9208e
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -66,11 +66,11 @@
#t config:listen-ip)]) #t config:listen-ip)])
(lambda () (lambda ()
(let-values ([(ip op) (tcp-accept listener)]) (let-values ([(ip op) (tcp-accept listener)])
;; Try to set buffer mode, and if it can't be set, ;; Try to set buffer mode, and if it can't be set,
;; assume that it doesn't matter. (Only happens ;; assume that it doesn't matter. (Only happens
;; when tcp-accept is not MzScheme's version.) ;; when tcp-accept is not MzScheme's version.)
(with-handlers ([exn:fail? void]) (with-handlers ([exn:fail? void])
(file-stream-buffer-mode op 'none)) (file-stream-buffer-mode op 'none))
(values ip op))))]) (values ip op))))])
(thread (thread
(lambda () (lambda ()
@ -86,7 +86,7 @@
(parameterize ([current-custodian connection-cust]) (parameterize ([current-custodian connection-cust])
(let-values ([(ip op) (get-ports)]) (let-values ([(ip op) (get-ports)])
(serve-ports/inner ip op)))) (serve-ports/inner ip op))))
(loop))) (loop)))
;; serve-ports : input-port output-port -> void ;; serve-ports : input-port output-port -> void
;; returns immediately, spawning a thread to handle ;; returns immediately, spawning a thread to handle
@ -581,9 +581,9 @@
; the post is done. ; the post is done.
(semaphore-wait (servlet-instance-mutex inst)) (semaphore-wait (servlet-instance-mutex inst))
(set-servlet-instance-context! (set-servlet-instance-context!
inst inst
(make-execution-context (make-execution-context
conn req (lambda () (suspend #t)))) conn req (lambda () (suspend #t))))
(increment-timer (servlet-instance-timer inst) (increment-timer (servlet-instance-timer inst)
(timeouts-default-servlet (timeouts-default-servlet
(host-timeouts host-info))) (host-timeouts host-info)))