X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=sam.git;a=blobdiff_plain;f=chat_client.scm;fp=chat_client.scm;h=947418f09d7be452767bcedfa7c9487469aa00c3;hp=f6b16d63bcdfae4bca12bea1463a4cf18cbb0802;hb=d9768084b4cde1dd4ac4edcbb432b7df4101bfc2;hpb=882336f2f5d74856222f5be79ea4709481a2c602

diff --git a/chat_client.scm b/chat_client.scm
index f6b16d6..947418f 100644
--- a/chat_client.scm
+++ b/chat_client.scm
@@ -14,7 +14,7 @@
                        "Type '/help' for a list of commands.\n")
          (send-message system 'read self))
         (('show-msg from text)
-         (send-message system 'print "Message from " from ": " text))
+         (send-message system 'print from "> " text))
         (((? string? str))
          (if (string-prefix? "/" str)
              (let* ((maybe-idx (string-index str #\space))
@@ -51,7 +51,7 @@
                         (send-message system 'print "Current recipients:")
                         (let loop ((recipients-left recipients))
                           (unless (null? recipients-left)
-                            (send-message system 'print (car recipients-left))
+                            (send-message system 'print (address->string (car recipients-left)))
                             (loop (cdr recipients-left)))))))
                  ((or "q" "quit")
                   (send-message system 'shutdown))