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 stop-status (web:run))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define session-count 0) (define session-count 0)
(define default-context-length (error-print-context-length)) (define default-context-length (error-print-context-length))
(parameterize ([error-display-handler (lambda (msg exn) (log-line msg))] (parameterize ([error-display-handler (lambda (msg exn) (log-line msg))]
[error-print-context-length 0] [error-print-context-length 0]
[current-directory server-dir]) [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 (run-server
(get-conf 'port-number) port
(lambda (r w) (lambda (r w)
(error-print-context-length default-context-length) (error-print-context-length default-context-length)
(set! connection-num (add1 connection-num)) (set! connection-num (add1 connection-num))