From aa89fc61a9354da3ddd720262c4b1433d75673b9 Mon Sep 17 00:00:00 2001
From: Vivianne Langdon <puttabutta@gmail.com>
Date: Sun, 5 Feb 2023 23:34:59 -0800
Subject: [PATCH] Switch to ~a to avoid quotes in name.

---
 gib-gab-gob/actors.scm | 4 ++--
 gib-gab-gob/rps.scm    | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/gib-gab-gob/actors.scm b/gib-gab-gob/actors.scm
index b598d74..d60643a 100644
--- a/gib-gab-gob/actors.scm
+++ b/gib-gab-gob/actors.scm
@@ -13,7 +13,7 @@
     (format #t "Hey there, ~a! You sent me your pick of rock-paper-scissors; now I will send mine.\n" name)
     (on (<- (<- client 'pick->unsealer pick) sealed-pick)
         (lambda (peer-pick)
-          (format #t "Opponent ~s has picked ~a (do I win? ~s)\n" name peer-pick (rps-winner pick peer-pick))))]))
+          (format #t "Opponent ~a has picked ~a (do I win? ~a)\n" name peer-pick (rps-winner pick peer-pick))))]))
 
 (define (^client-picker bcom)
   (define-values (seal-pick unseal-pick my-pick?)
@@ -22,5 +22,5 @@
   (methods
    [(get-sealed-pick) ($ seal-pick pick)]
    [(pick->unsealer peer-pick)
-    (format #t "Peer picked ~a... a bold choice (do I win? ~s), I will send my unsealer\n" peer-pick (rps-winner pick peer-pick))
+    (format #t "Peer picked ~a... a bold choice (do I win? ~a), I will send my unsealer\n" peer-pick (rps-winner pick peer-pick))
     unseal-pick]))
diff --git a/gib-gab-gob/rps.scm b/gib-gab-gob/rps.scm
index e6dde7f..1880547 100644
--- a/gib-gab-gob/rps.scm
+++ b/gib-gab-gob/rps.scm
@@ -52,7 +52,7 @@
             (define client-picker (spawn ^client-picker))
               (on (<- (lobby client) 'register-opponent user-name client-picker ($ client-picker 'get-sealed-pick))
                   (lambda (_)
-                    (format #t "~s finished the game.\n" user-name)))))
+                    (format #t "~a finished the game.\n" user-name)))))
 
 ;;
 ;; Standard rock paper scissors logic follows!