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

better error on hangup

Browse Source 
svn: r1307
This commit is contained in:
Eli Barzilay 2005-11-14 06:20:33 +00:00
parent f14d795240
commit 42ba923c45
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -507,8 +507,9 @@
;; other messages require a login: valid users and a good password
[else
(when (eof-object? msg)
(LOG "hangup")
(error 'handin "hangup (~a)" (a-ref data 'username/s)))
(let ([username/s (a-ref data 'username/s #f)])
(apply error 'handin
(if username/s `("hangup (~a)" ,username/s) `("hangup")))))
(let ([usernames (a-ref data 'usernames #f)]
[user-datas (a-ref data 'user-datas #f)])
(when (or (memq #f user-datas)