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

deal with eof a little better

Browse Source 
svn: r1071
This commit is contained in:
Eli Barzilay 2005-10-13 18:43:27 +00:00
parent bab76d0479
commit d044b06b27
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -505,9 +505,11 @@
[(bye) #t] ; <- general disconnection
;; other messages require a login: valid users and a good password
[else
(let ([usernames (a-ref data 'usernames)]
[user-datas (a-ref data 'user-datas)])
(memq #f user-datas)
(when (eof-object? msg)
(LOG "hangup")
(error 'handin "hangup" (a-ref data 'username/s)))
(let ([usernames (a-ref data 'usernames #f)]
[user-datas (a-ref data 'user-datas #f)])
(when (or (memq #f user-datas)
(not (has-password?
(a-ref data 'raw-password)