From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Tue, 20 Dec 2016 21:28:10 +0000 (-0600)
Subject: actors: Document the <message> records's fields.
X-Git-Tag: v0.4.0~65
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=3d6f2e7cd2ec140db3a32c0f2a999b63b718a935;ds=sidebyside

actors: Document the <message> records's fields.

* 8sync/actors.scm (<message>): Add comments.
---

diff --git a/8sync/actors.scm b/8sync/actors.scm
index fdcbc85..c694c48 100644
--- a/8sync/actors.scm
+++ b/8sync/actors.scm
@@ -122,14 +122,15 @@
                        body in-reply-to wants-reply
                        replied)
   message?
-  (id message-id)
-  (to message-to)
-  (from message-from)
-  (action message-action)
-  (body message-body)
-  (in-reply-to message-in-reply-to)
-  (wants-reply message-wants-reply)
-  (replied message-replied set-message-replied!))
+  (id message-id)                    ; id of this message
+  (to message-to)                    ; actor id this is going to
+  (from message-from)                ; actor id of sender
+  (action message-action)            ; action (a symbol) to be handled
+  (body message-body)                ; argument list "body" of message
+  (in-reply-to message-in-reply-to)  ; message id this is in reply to, if any
+  (wants-reply message-wants-reply)  ; whether caller is waiting for reply
+  (replied message-replied           ; was this message replied to?
+           set-message-replied!))
 
 
 (define* (make-message id to from action body