(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)
(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 '())