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

diff --git a/chat_client.scm b/chat_client.scm
index 4bf02d8..f6b16d6 100644
--- a/chat_client.scm
+++ b/chat_client.scm
@@ -10,7 +10,7 @@
       (match message
         (('start)
          (send-message system 'print "Welcome to chat!\n"
-                       "Your client address is " self ".\n"
+                       "Your client address is " (address->string self) ".\n"
                        "Type '/help' for a list of commands.\n")
          (send-message system 'read self))
         (('show-msg from text)
@@ -36,7 +36,7 @@
                   (if (string-null? arg)
                       (send-message system 'print "Missing address of client.")
                       (begin
-                        (set! recipients (cons arg recipients))
+                        (set! recipients (cons (string->address arg) recipients))
                         (send-message system 'print "Added recipient to chat."))))
                  ((or "c" "clear")
                   (set! recipients '())