From e4d6e9208e902978e1c70984bfca49d6aa299ec0 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 24 Aug 2005 15:02:22 +0000 Subject: [PATCH] Reindenting svn: r643 --- collects/web-server/web-server-unit.ss | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/collects/web-server/web-server-unit.ss b/collects/web-server/web-server-unit.ss index b6bcc9f28c..2030e5cb9a 100644 --- a/collects/web-server/web-server-unit.ss +++ b/collects/web-server/web-server-unit.ss @@ -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)))