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