From 52dda57d90c89fab51dac63753a6c347f53fb8f1 Mon Sep 17 00:00:00 2001 From: David Florness Date: Sat, 7 Mar 2020 14:40:10 -0700 Subject: [PATCH] Fix kicking --- bulletin.rkt | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/bulletin.rkt b/bulletin.rkt index fe89e4b..723c414 100644 --- a/bulletin.rkt +++ b/bulletin.rkt @@ -231,9 +231,15 @@ ['cands (displayln (hash-ref election->candidates election))] ['peers - (displayln (hash-values _peers))])] + (displayln (hash-values _peers))] + ['elections + (displayln (format "current: ~a" election)) + (displayln (hash-keys election->candidates))])] ['set (match (read sp) - ['election (let ([election (read sp)]) + ['election (let* ([election (read sp)] + [election (if (string? election) + (string->symbol election) + election)]) (election-set! election))] [else (displayln "cannot set that")])] ['open @@ -251,10 +257,10 @@ [peer-uname (if (symbol? peer-uname) (symbol->string peer-uname) peer-uname)]) - (for ([peer _peers] + (for ([(token peer) _peers] #:when (equal? (hash-ref peer 'username) peer-uname)) - (set-remove! _peers peer))) + (hash-remove! _peers token))) (displayln "close the election first"))] [else (displayln "unknown command")]) (loop))))))) -- 2.38.4