tidied up, removed some unused definitions

2 files changed, 2 insertions, 7 deletions

diff --git a/Hermes/TODO.txt b/Hermes/TODO
index c1f17fa..c1f17fa 100644
--- a/Hermes/TODO.txt
+++ b/Hermes/TODO
diff --git a/Hermes/server.rkt b/Hermes/server.rkt
index 216c6e2..59f33d2 100644
--- a/Hermes/server.rkt
+++ b/Hermes/server.rkt
@@ -1,8 +1,6 @@
 #lang racket
 (require math/base) ;; for random number generation
 
-;; TODO wrap "safer send in a function that takes care of semaphores"
-
 ;; globals
 ; track number of connections with closure
 (define (make-count no-count)
@@ -20,6 +18,7 @@
           [(eq? m 'current-count) current-count]))
   dispatch)
 (define c-count (make-count 0))
+; a semaphore to control access to c-count
 (define c-count-s (make-semaphore 1))
 
 
@@ -38,7 +37,7 @@
            [(eq? m 'add) add]))
    dispatch)
 (define c-connections (make-connections '()))
-
+; a semaphore to control acess to c-connections
 (define connections-s (make-semaphore 1)) ;; control access to connections
 
 ;; every 5 seconds run to broadcast top message in list
@@ -46,10 +45,6 @@
 (define messages-s (make-semaphore 1))  ;; control access to messages
 (define messages '())  ;; stores a list of messages(strings) from currents
 
-(define threads-s (make-semaphore 1))  ;; control access to threads
-;; lets keep thread descriptor values
-(define threads '())  ;; stores a list of client serving threads as thread descriptor values
-
 ;; Several threads may want to print to stdout, so  lets make things civil
 (define stdout (make-semaphore 1))