From 211530e9dfa31c05cc3a4ede05536a53c68d7db7 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 28 Dec 2009 18:32:31 +0000 Subject: [PATCH] minor svn: r17414 --- collects/handin-server/main.ss | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/collects/handin-server/main.ss b/collects/handin-server/main.ss index 35b0fa171a..760d75fba9 100644 --- a/collects/handin-server/main.ss +++ b/collects/handin-server/main.ss @@ -623,20 +623,22 @@ ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(let ([port (get-conf 'port-number)]) - (log-line "server started on port ~a ------------------------------" port) - (hook 'server-start `([port ,port]))) - (define stop-status (web:run)) + +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + (define session-count 0) (define default-context-length (error-print-context-length)) (parameterize ([error-display-handler (lambda (msg exn) (log-line msg))] [error-print-context-length 0] [current-directory server-dir]) + (define port (get-conf 'port-number)) + (log-line "server started on port ~a ------------------------------" port) + (hook 'server-start `([port ,port])) (run-server - (get-conf 'port-number) + port (lambda (r w) (error-print-context-length default-context-length) (set! connection-num (add1 connection-num))