More utility prefab messages.
This commit is contained in:
parent
67a00406d0
commit
125e19f41a
|
@ -22,6 +22,10 @@
|
||||||
|
|
||||||
;; Generic utility messages
|
;; Generic utility messages
|
||||||
(struct-out credit)
|
(struct-out credit)
|
||||||
|
|
||||||
|
(struct-out rpc-request)
|
||||||
|
(struct-out rpc-reply)
|
||||||
|
(struct-out rpc-error)
|
||||||
)
|
)
|
||||||
|
|
||||||
(struct arrived (who) #:prefab) ;; someone arrived
|
(struct arrived (who) #:prefab) ;; someone arrived
|
||||||
|
@ -30,6 +34,10 @@
|
||||||
|
|
||||||
(struct credit (who amount) #:prefab) ;; give someone an amount of credit
|
(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 (name ch))
|
||||||
|
|
||||||
(struct room-state (name ch members) #:transparent)
|
(struct room-state (name ch members) #:transparent)
|
||||||
|
|
Loading…
Reference in New Issue