X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Factors.scm;h=c694c489992abd9a99a9aca57f2afc605103e822;hp=fdcbc85193c43300b293de7e8abb92933073810d;hb=3d6f2e7cd2ec140db3a32c0f2a999b63b718a935;hpb=1dec705a02f9c069797579d5f0cfda9180a8dd15

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