iskm/Hermes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync/timeout to plain sync. Its appropriate given the chat context

Browse Source
This commit is contained in:
Ibrahim Mkusa 2017-04-16 17:32:02 -04:00
parent 7e7edb4a54
commit 6680d7504b
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Hermes/client.rkt
View File

@ -94,7 +94,7 @@
; receives input from server and displays it to stdout ; receives input from server and displays it to stdout
(define (receive-messages in) (define (receive-messages in)
; retrieve a message from server ; 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) (cond [(eof-object? evt)
(displayln-safe "Server connection closed." error-out-s error-out) (displayln-safe "Server connection closed." error-out-s error-out)

4
Hermes/server.rkt
View File

@ -164,7 +164,7 @@
(define (chat_with_client in out) (define (chat_with_client in out)
; deals with queueing incoming messages for server to broadcast to all clients ; deals with queueing incoming messages for server to broadcast to all clients
(define (something-to-say in) (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) (cond [(eof-object? evt-t0)
(semaphore-wait connections-s) (semaphore-wait connections-s)
((c-connections 'remove-ports) in out) ((c-connections 'remove-ports) in out)
@ -224,7 +224,7 @@
(flush-output out) (flush-output out)
(semaphore-post connections-s)] (semaphore-post connections-s)]
[else [else
(displayln-safe evt-t0) ; (displayln-safe evt-t0) debug purposes
(semaphore-wait messages-s) (semaphore-wait messages-s)
; evaluate it . ; evaluate it .
((c-messages 'add) evt-t0) ((c-messages 'add) evt-t0)