From 42ba923c4585797b4dba83299799521334dff9c2 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 14 Nov 2005 06:20:33 +0000 Subject: [PATCH] better error on hangup svn: r1307 --- collects/handin-server/handin-server.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/handin-server/handin-server.ss b/collects/handin-server/handin-server.ss index c771182963..8430b07f58 100644 --- a/collects/handin-server/handin-server.ss +++ b/collects/handin-server/handin-server.ss @@ -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)