1 files changed, 5 insertions(+), 4 deletions(-)

M client.rkt

@@ 91,8 91,8 @@
     (let* ([vote (get-vote candidates)]
            [m    cand-count]
            [n    m]
-           [arr (array->mutable-array
-                 (make-array (vector m n) 0))])
+           [arr  (array->mutable-array
+                  (make-array (vector m n) 0))])
       (let loop ([rank      (car vote)]
                  [rst       (cdr vote)]
                  [remaining (set-subtract (list->set (range m)) (car vote))])


@@ 283,7 283,8 @@
              (break-enabled #t)
              (when (eqv? 410 (exn:fail:network:http:error-code ex))
                (retry 3)))])
-         (get bulletin "/candidates"))))
+         (get bulletin "/candidates")
+         (void))))
 
 (module+ main
   (define point (gen))


@@ 312,7 313,7 @@
                                        'username username
                                        'password password)))))))
 
-  ; the bulletin can have multiple elections
+  ; the bulletin can have multiple elections, so loop
   (let loop ()
     (with-handlers
       ([exn:fail:network:http:error?