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

reorganize web-starting code, to make it possible to separate it

Browse Source 
svn: r17423
This commit is contained in:
Eli Barzilay 2009-12-28 22:14:26 +00:00
parent 38a7fcceec
commit fa13292033
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/handin-server/web-status-server.ss
View File

@ -306,10 +306,7 @@
(define (run) (define (run)
(cond [(get-conf 'https-port-number) (cond [(get-conf 'https-port-number)
=> (lambda (p) => (lambda (p)
(define t
(parameterize ([error-print-context-length 0])
(thread (lambda ()
(log-line "*** starting web server") (log-line "*** starting web server")
(run-servlet p))))) (parameterize ([error-print-context-length 0])
(lambda () (break-thread t)))] (run-servlet p)))]
[else void])) [else void]))