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

minor

Browse Source 
svn: r17414
This commit is contained in:
Eli Barzilay 2009-12-28 18:32:31 +00:00
parent 590cf99637
commit 211530e9df
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/handin-server/main.ss
View File

@ -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))