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

adjust to the protocol change: send "handin\n" first

Browse Source 
svn: r17449
This commit is contained in:
Eli Barzilay 2009-12-31 07:18:11 +00:00
parent 237682244c
commit e423ae7e71
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/handin-client/client.ss
View File

@ -49,6 +49,7 @@
(define (handin-connect server port) (define (handin-connect server port)
(let-values ([(r w) (connect-to server port)]) (let-values ([(r w) (connect-to server port)])
(write+flush w 'handin)
;; Sanity check: server sends "handin", first: ;; Sanity check: server sends "handin", first:
(let ([s (read-bytes 6 r)]) (let ([s (read-bytes 6 r)])
(unless (equal? #"handin" s) (unless (equal? #"handin" s)