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

Graceful exit on breaks for Help Desk Server.

Browse Source 
svn: r7249
This commit is contained in:
Jens Axel Soegaard 2007-09-01 16:02:05 +00:00
parent bc90208be1
commit 588be4e4cf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/help/help-desk-server.ss
View File

@ -39,7 +39,8 @@
internal-host (internal-port)) internal-host (internal-port))
(printf "Press enter to shutdown.\n") (printf "Press enter to shutdown.\n")
(read-line) (with-handlers ([exn:break? (lambda (exn) (shutdown) (exit))])
(read-line))
(shutdown) (shutdown)
) )