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

M bulletin.rkt

@@ 214,8 214,11 @@
                                      (λ (l)
                                        (cons cand l))))]
                     [else (displayln "cannot add that")])]
-            ['list
-             (displayln (hash-ref election->candidates election))]
+            ['list (match (read sp)
+                     ['cands
+                      (displayln (hash-ref election->candidates election))]
+                     ['peers
+                      (displayln _peers)])]
             ['set (match (read sp)
                     ['election (let ([election (read sp)])
                                  (election-set! election))]