diff options
| -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) |