minor
svn: r17414
This commit is contained in:
parent
590cf99637
commit
211530e9df
|
@ -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))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user