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

return a thunk that can kill the web server

Browse Source 
svn: r12532
This commit is contained in:
Eli Barzilay 2008-11-20 09:54:05 +00:00
parent beea721bc4
commit 827b76cb6f
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -272,8 +272,9 @@
(provide run) (provide run)
(define (run p) (define (run p)
(thread (lambda () (dynamic-wind (define t
(lambda () (log-line "*** starting web server")) (thread (lambda () (dynamic-wind
(run-servlet p) (lambda () (log-line "*** starting web server"))
(lambda () (log-line "*** web server died!"))))) (run-servlet p)
(void)) (lambda () (log-line "*** web server died!"))))))
(lambda () (thread-break t)))