From 3d6f2e7cd2ec140db3a32c0f2a999b63b718a935 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Tue, 20 Dec 2016 15:28:10 -0600 Subject: [PATCH] actors: Document the records's fields. * 8sync/actors.scm (): Add comments. --- 8sync/actors.scm | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) 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 -- 2.31.1