From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Tue, 13 Dec 2016 18:43:42 +0000 (-0600)
Subject: actors: Add msg-val and add docstring to msg-receive.
X-Git-Tag: v0.3.0~13
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=refs%2Fheads%2Fremove-define-mhandler;p=8sync.git

actors: Add msg-val and add docstring to msg-receive.

* 8sync/systems/actors.scm (msg-receive): Add docstring, and change
  parameter name from "the-message" to just "message".
  (msg-val): New procedure.
---

diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm
index 7b47c5f..84a5c2e 100644
--- a/8sync/systems/actors.scm
+++ b/8sync/systems/actors.scm
@@ -70,7 +70,7 @@
 
             <- <-wait <-reply <-reply-wait
 
-            call-with-message msg-receive
+            call-with-message msg-receive msg-val
 
             ez-run-hive
             bootstrap-message
@@ -622,11 +622,20 @@ argument.  Similar to call-with-values in concept."
 ;; Emacs: (put 'msg-receive 'scheme-indent-function 2)
 
 ;; @@: Or receive-msg or receieve-message or??
-(define-syntax-rule (msg-receive arglist the-message body ...)
-  (call-with-message the-message
+(define-syntax-rule (msg-receive arglist message body ...)
+  "Call body with arglist (which can accept arguments like lambda*)
+applied from the message-body of message."
+  (call-with-message message
                      (lambda* arglist
                        body ...)))
 
+(define (msg-val message)
+  "Retrieve the first value from the message-body of message.
+Like single value return from a procedure call.  Probably the most
+common case when waiting on a reply from some action invocation."
+  (call-with-message message
+                     (lambda (_ val) val)))
+
 
 ;;; Various API methods for actors to interact with the system
 ;;; ==========================================================