From 125e19f41a886a08382ccade4f087562cf0c10b4 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 24 Oct 2011 18:34:08 -0400 Subject: [PATCH] More utility prefab messages. --- conversation.rkt | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/conversation.rkt b/conversation.rkt index 9fa7dc8..355d5d3 100644 --- a/conversation.rkt +++ b/conversation.rkt @@ -22,6 +22,10 @@ ;; Generic utility messages (struct-out credit) + + (struct-out rpc-request) + (struct-out rpc-reply) + (struct-out rpc-error) ) (struct arrived (who) #:prefab) ;; someone arrived @@ -30,6 +34,10 @@ (struct credit (who amount) #:prefab) ;; give someone an amount of credit +(struct rpc-request (reply-to id body) #:prefab) +(struct rpc-reply (id body) #:prefab) +(struct rpc-error (id reason) #:prefab) + (struct room (name ch)) (struct room-state (name ch members) #:transparent)