The Lambda Lab
/
projects
/
sam.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Replaced URIs as optional string representation of addresses.
[sam.git]
/
chat_client.scm
diff --git
a/chat_client.scm
b/chat_client.scm
index
f6b16d6
..
947418f
100644
(file)
--- 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)
"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))
(((? 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 "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))
(loop (cdr recipients-left)))))))
((or "q" "quit")
(send-message system 'shutdown))