actors: Remove unnecessary "begin".

[8sync.git] / 8sync / systems / actors.scm

diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm
index fd5391ad2e7c59bf40cdbae798088b7127350f4f..51a6e50c88abfee680426b3356d2b159f0e00882 100644 (file)
--- 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)
                  (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?
             ;; Returning result allows actors to possibly make a run-request
             ;; at the end of handling a message.
             ;; ... We do want that, right?