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

improved error message

Browse Source 
svn: r17415
This commit is contained in:
Eli Barzilay 2009-12-28 18:35:19 +00:00
parent 211530e9df
commit a297f940d4
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/handin-server/main.ss
View File

@ -669,7 +669,10 @@
(let ([protocol (read r-safe)])
(if (eq? protocol 'ver1)
(write+flush w 'ver1)
(error 'handin "unknown protocol: ~s" protocol)))
(error 'handin "unknown protocol: ~e~a" protocol
(if (eq? protocol 'GET)
" (this port is used for handin submissions only)"
""))))
(handle-connection r r-safe w)
(log-line "normal exit")
(kill-watcher)