From a540bc917f34e51651960470d5d73de64c4b3ccb Mon Sep 17 00:00:00 2001 From: Ibrahim Mkusa Date: Wed, 12 Apr 2017 00:31:41 -0400 Subject: reduced time of broadcast to every 0.5 seconds to avoid hogging cpu and temps --- Hermes/client.rkt | 2 +- Hermes/server.rkt | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Hermes/client.rkt b/Hermes/client.rkt index 574f88a..8aa19e1 100644 --- a/Hermes/client.rkt +++ b/Hermes/client.rkt @@ -92,7 +92,7 @@ ;; with server ;(semaphore-wait fair) ;; we will retrieve the line printed below from the server - (define evt (sync/timeout 30 (read-line-evt in))) + (define evt (sync/timeout 60 (read-line-evt in))) (cond [(eof-object? evt) (displayln "Server connection closed") (custodian-shutdown-all main-client-cust) diff --git a/Hermes/server.rkt b/Hermes/server.rkt index de11d0e..4b590db 100644 --- a/Hermes/server.rkt +++ b/Hermes/server.rkt @@ -47,7 +47,7 @@ (display "Broadcast thread started!\n") (semaphore-post stdout) (let loopb [] - (sleep 10) ;; wait 30 secs before beginning to broadcast + (sleep 0.5) ;; wait 30 secs before beginning to broadcast (broadcast) (loopb))))) (lambda () @@ -98,7 +98,7 @@ (semaphore-wait stdout) (display "Started a thread to kill hanging connecting thread\n") (semaphore-post stdout) - (sleep 360) + (sleep 1360) (custodian-shutdown-all cust))))) ; (define (handle connections) -- cgit v1.2.3