Tweak chat-tcp2.rkt
This commit is contained in:
parent
32d1274a8d
commit
5904a2f956
|
@ -6,8 +6,8 @@
|
|||
(require (only-in racket/string string-trim))
|
||||
(require racket/format)
|
||||
|
||||
(struct speak (who what) #:prefab)
|
||||
(struct present (who) #:prefab)
|
||||
(message-struct speak (who what))
|
||||
(assertion-struct present (who))
|
||||
|
||||
(spawn #:name 'chat-server
|
||||
(during/spawn (tcp-connection $id (tcp-listener 5999))
|
||||
|
|
Loading…
Reference in New Issue