net: twelve/source.rkt: Fix won.

1 files changed, 3 insertions, 1 deletions

diff --git a/net/ricketyspace/ror/twelve/source.rkt b/net/ricketyspace/ror/twelve/source.rkt
index cc6c366..dc37e87 100644
--- a/net/ricketyspace/ror/twelve/source.rkt
+++ b/net/ricketyspace/ror/twelve/source.rkt
@@ -291,7 +291,9 @@
 ;; Which player has won the game -- eager is for N human players 
 (define (won board)
   (define-values (best-score w) (winners board))
-  (if (cons? (rest w)) "It's a tie." "You won."))
+  (cond [(cons? (rest w)) "It's a tie."]
+        [(= (car w) AI) "AI won."]
+        [else "You won."]))
 
 ;                                  
 ;