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

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

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