From a3cc473443bae2420b7fa6460687eecd7b33a767 Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Mon, 18 Nov 2019 17:11:34 -0500
Subject: net/ricketyspace/ror/ten/source.rkt: Updat eadd-winning-probability.

---
 net/ricketyspace/ror/ten/source.rkt | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/net/ricketyspace/ror/ten/source.rkt b/net/ricketyspace/ror/ten/source.rkt
index 6fa5228..a2b6a96 100644
--- a/net/ricketyspace/ror/ten/source.rkt
+++ b/net/ricketyspace/ror/ten/source.rkt
@@ -683,9 +683,10 @@
       (place-image
        (text (string-append
               "Winning Probability "
-              (number->string
+              (~r
                (probability-of-winning (find-territory source)
-                                       (find-territory target))))
+                                       (find-territory target))
+               #:precision 2))
              TEXT-SIZE TEXT-COLOR)
        (- WIDTH 150) 100 s)
       s))
-- 
cgit v1.2.3