diff options
| author | Ibrahim Mkusa <ibrahimmkusa@gmail.com> | 2017-04-16 17:32:02 -0400 |
|---|---|---|
| committer | Ibrahim Mkusa <ibrahimmkusa@gmail.com> | 2017-04-16 17:32:02 -0400 |
| commit | 6680d7504b2b1c45a6cfd0049212e162c279e172 (patch) | |
| tree | 6fbec6c7ae40973fedd7cc9f21db36a155e13fca | |
| parent | 7e7edb4a54d18d7ee75a228b7f2209d99827449f (diff) | |
sync/timeout to plain sync. Its appropriate given the chat context
| -rw-r--r-- | Hermes/client.rkt | 2 | ||||
| -rw-r--r-- | Hermes/server.rkt | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/Hermes/client.rkt b/Hermes/client.rkt index e50a37f..8959b1c 100644 --- a/Hermes/client.rkt +++ b/Hermes/client.rkt @@ -94,7 +94,7 @@ ; receives input from server and displays it to stdout (define (receive-messages in) ; retrieve a message from server - (define evt (sync/timeout 60 (read-line-evt in))) + (define evt (sync (read-line-evt in))) (cond [(eof-object? evt) (displayln-safe "Server connection closed." error-out-s error-out) diff --git a/Hermes/server.rkt b/Hermes/server.rkt index ee949f5..5e5f546 100644 --- a/Hermes/server.rkt +++ b/Hermes/server.rkt @@ -164,7 +164,7 @@ (define (chat_with_client in out) ; deals with queueing incoming messages for server to broadcast to all clients (define (something-to-say in) - (define evt-t0 (sync/timeout 60 (read-line-evt in 'linefeed))) + (define evt-t0 (sync (read-line-evt in 'linefeed))) (cond [(eof-object? evt-t0) (semaphore-wait connections-s) ((c-connections 'remove-ports) in out) @@ -224,7 +224,7 @@ (flush-output out) (semaphore-post connections-s)] [else - (displayln-safe evt-t0) + ; (displayln-safe evt-t0) debug purposes (semaphore-wait messages-s) ; evaluate it . ((c-messages 'add) evt-t0) |