From e423ae7e717e804582ef1ff4ebc3907d25104e6e Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 31 Dec 2009 07:18:11 +0000 Subject: [PATCH] adjust to the protocol change: send "handin\n" first svn: r17449 --- collects/handin-client/client.ss | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/handin-client/client.ss b/collects/handin-client/client.ss index 545416698d..774e837216 100644 --- a/collects/handin-client/client.ss +++ b/collects/handin-client/client.ss @@ -49,6 +49,7 @@ (define (handin-connect server port) (let-values ([(r w) (connect-to server port)]) + (write+flush w 'handin) ;; Sanity check: server sends "handin", first: (let ([s (read-bytes 6 r)]) (unless (equal? #"handin" s)