From 5904a2f9562404c3ed14806b1ddd5d9f02b29fd3 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 19 Oct 2017 17:12:01 +0100 Subject: [PATCH] Tweak chat-tcp2.rkt --- racket/syndicate/examples/actor/chat-tcp2.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/syndicate/examples/actor/chat-tcp2.rkt b/racket/syndicate/examples/actor/chat-tcp2.rkt index 07df45d..0477d45 100644 --- a/racket/syndicate/examples/actor/chat-tcp2.rkt +++ b/racket/syndicate/examples/actor/chat-tcp2.rkt @@ -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))