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
No longer using URIs for internal address representation.
[sam.git]
/
chat_client.scm
diff --git
a/chat_client.scm
b/chat_client.scm
index
4bf02d8
..
f6b16d6
100644
(file)
--- a/
chat_client.scm
+++ b/
chat_client.scm
@@
-10,7
+10,7
@@
(match message
(('start)
(send-message system 'print "Welcome to chat!\n"
(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)
"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
(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 '())
(send-message system 'print "Added recipient to chat."))))
((or "c" "clear")
(set! recipients '())