From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Mon, 25 Apr 2016 18:15:04 +0000 (-0500)
Subject: actors: Remove unnecessary "begin".
X-Git-Tag: v0.2.0~42
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=24964693f8dfc06f75d706acc3255d0686458ce8;hp=e2d7d6de38565f0a7befe4e11b33206903568f3c

actors: Remove unnecessary "begin".

* 8sync/systems/actors.scm (hive-process-message): Remove "begin",
  which was only wrapping one thing.
---

diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm
index fd5391a..51a6e50 100644
--- a/8sync/systems/actors.scm
+++ b/8sync/systems/actors.scm
@@ -462,10 +462,9 @@ more compact following syntax:
                  (message-handler actor message)))
             ;; Possibly autoreply
             (if (message-needs-reply message)
-                (begin
-                  ;; @@: Should we give *autoreply* as the action instead of *reply*?
-                  (reply-message actor message
-                                 #:*auto-reply* #t)))
+                ;; @@: Should we give *autoreply* as the action instead of *reply*?
+                (reply-message actor message
+                               #:*auto-reply* #t))
             ;; Returning result allows actors to possibly make a run-request
             ;; at the end of handling a message.
             ;; ... We do want that, right?